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ABSTRACT 


Rapid prototyping with automated retrieval of reusable software components is a 
software development method to construct software systems expeditiously. This thesis 
describes a tool to enhance the practice of software reuse within the Computer Aided 
Prototyping System (CAPS). 

A software base interface provides prototype designers with the means to retrieve 
components and integrate them into new applications. Reusable components are retrieved 
from the software base using a formal specification as the search key or through a browser. 
The specification language used is the Prototype System Description Language (PSDL). 
The software base stores the reusable components in an object oriented database 
management system (ONTOS) with an appropriate PSDL specification. Following a query 
conducted by the PSDL specification, chosen retrieved components are transformed and 
integrated to the system under development. 

All software base procedures, including the storage, retrieval, and integration of the 
components, are conducted through a graphical user interface which is designed to 


demonstrate and manipulate available software base operations. 
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L INTRODUCTION 


A. SOFTWARE REUSE 


1. What Is Software Reuse 


Software reuse is using the elements of an existing system in the construction of 
another similar system. 

In general, software reuse includes all the products of software development 
cycle. Software documentation, requirements, analyses, designs, source codes etc. can all 
be reused in this broad view. 

Reuse of software is an important issue in software engineering because 
developers benefit in both productivity and accuracy by reusing software entities from all 


phases of system development. 


2. Why Reuse 


Much has been written about the software crisis in recent years. It was stated that 
software 1s too costly, insufficient quality and its development is nearly impossible to 
manage [Cox90]. Software reuse may reduce the pressure of the software crisis. 

A great percentage of a typical program is composed of potentially reusable code. 
It is desirable to make use of existing code wherever possible since this can have a 
significant impact on both the cost and duration of software development. 

Automating the reusability of code will help to eliminate the, now infamous, 
software backlogs [Bass87]. Furthermore, design analysis can focus on meeting and 
matching user requirements rather than verifying internal inconsistencies, especially in 
large projects. 

It was reported that 90% of the cost of maintenance can be reduced by software 
reuse, another report described that the cost of software maintenance is usually about 75% 
of the total cost of the whole life-cycle of software. Other studies show that 40% of a design 


and 75% of the code on a given project is reused [KL91]. 


AS can be seen, reuse can significantly reduce the cost of development and 
maintenance. Other than cost, software reuse may help improve the quality of the software. 
Frequent reuse of a software component may lead to frequent evaluation and revisement. 
Therefore, high quality components may be constructed through the reuse process. 

Reusing the software also saves time in all stages of the life cycle, makes learning 
new systems easier, improves readability and robustness, and leads to more modular, 


rational designs. 


3. How To Reuse 


While software reuse appears to be very beneficial it has not been widely used. It 

is only recently that emphasis is given to develop software systems that utilizes reusability. 
Software reuse brings many research questions into the open. The arguments 

focus on the question that what the candidates are for software reuse, how reusable software 
components should be stored, how we can locate reusable software components, and how 
we Can incorporate reusable software components into our own software system [YT88]. 

The candidates for software reuse brings the classification of software reuse. One 
example classification schema is reuse-in-the-small and reuse-in-the-large [KL91]. Reuse- 
in-the-small is concerned with the reuse of (small) pieces of source code such as classes, 
subroutines, (Ada) packages and so on. Reuse-in-the-large is concerned both with the reuse 
of large-grain components such as subsystems, and the reuse of elements beyond source 
code such as design structure, design decision, domain knowledge, analysis information 
and so forth. 

This thesis will address only the source code reuse schemes. 

Many kinds of mechanisms have been thought for the storage, retrieval and 
incorporation of components into the software. One of the earlier methods is cut and paste 
mechanism from component libraries [FH87]. The reusable components were stored in 


reference libraries and retrieved by various browsing mechanisms. Once the component is 





found, the user should copy and paste the component information into his/her program, 
sometimes through the templates that was provided for this purpose. 

An alternative view is that reuse is part of a development process [Luba88]. 
Methods that deal with reuse should be embedded within methodologies that support 
development, and environments to support reuse should be extensions of environments to 
support the developmental methodologies. This means that support for reuse must be an 
option supported and integrated into the standard mode of operation of the tool. The tool 
should support the storage, retrieval, and incorporation of reusable software with the new 
developed ones. 

The difficulties and issues that arises to realize such a system can be summarized 

as follows: 

* The amount of software is large and growing. This makes the search of 
software components difficult. 

e Standards for writing and documenting software are not used or are 
incompatible from project to project. 

e Systems are not designed for reusability. 

e Various systems exist in many different programming languages and their 
incompatibilities pose a barrier for reusability. 

e Software under development generally requires modification of reusable 
component, most intimate analysis of retrieved and developed component is 
necessary. 

Therefore, we may conclude that realization of software reuse will require: 

e Standards for specification, coding and testing that supports reusability. 

e A model for reusable components that represents the features related to 
reusability. 

e A design methodology such that reuse should be a continuing aspect of 
software development, embedded within the tool as an integral part of the 
methodology, rather than a separate option. 

e An efficient and fast location, retrieval method from the software base. This 


should be a tool managing the database of component descriptions. 


* [ncorporation of the components ensuring that the combined components are 

fully semantic and context compatible with the program they are used in. 
Computer Aided Prototyping System (CAPS) is designed to realize all these 
aspects. The requirement for the necessary standards for specification and representation is 
achieved through the use of Prototype System Description Language (PSDL). A software 
base equipped with an efficient search and retrieval mechanism is an embedded tool in 
CAPS. The retrieved components are incorporated into the prototyped system ensuring the 


fully semantic and context compatibility. 


B. RAPID PROTOTYPING 


The demand for large, high quality systems has increased to the point where a jump in 
software technology is needed. Rapid prototyping is one of the most promising approaches 
to this problem [BL88]. 

A prototype is an executable model of the proposed system. The prototype tries to 
realize the requirements such that the behavior of the proposed system is observable. This 
provides continuous modification of requirements as customers can visualize and test them 
throughout the development. 

More than half of the total software cost originates from the changes made on software 
system, called maintenance phase in traditional software life cycle. Moreover, 
requirements errors are the most expensive errors to recover as major changes should be 
made on the system. Requirements are difficult to construct and validate because usually 
there is no single person who understands all of the constraints of proposed system. This is 
especially evident in large systems with hard real-time constraints, since the requirements 
for such systems are generally very difficult to understand or describe [Luqi$8]. The 
communication problems between people with different areas of expertise worsens the 
situation. 

Prototyping helps reduce maintenance costs primarily by reducing requirement errors. 
As prototyping allows extensive testing of a system, it also reduces the implementation 


errors. 





Prototyping life cycle is in figure 1.1. The requirements are specified repeatedly by 
evaluating the executable prototypes and negotiating with the customer. The prototype is 
constructed based on the initial requirements. This prototype is a partial representation of 
the system which is used to analyze and design the system. Then, the designer examines the 
execution of the prototype together with the customer to compare the actual behavior of the 
prototype with the expected behavior. The feedback from the customer is used to adjust the 
requirements and to modify the prototype accordingly. 

The repeated process of user validation and prototype construction continues until the 
prototype successfully meets all the aspects of the envisioned system. After that, the 
designer uses the validated requirements as a basis for the design of the production 


software. 


Determine requirements Construct 
requirements prototype 





requirements 
adjustments 


prototype 


Execute System 


prototype implementation 





requirements OK 


Figure 1.1 - Prototyping life cycle 


The process of creating and modifying prototypes must be rapid enough for 
prototyping to be an efficient methodology. 
We need software tools to make rapid prototyping practical. Reusing existing system 


components appears to be the most economical approach for constructing prototypes. 


These reusable components should also have sufficient quality to obtain the necessary 
performance from the final system. 

The method used for rapid prototyping should be supported by a clear, simple, and 
expressive computational model that is also supported by a matching language and 
automated prototyping environment. The same language must be used for prototype design 
and for software base retrievals to gain the benefits of reusable software components. 

This model and language, namely CAPS and PSDL, are briefly described in the 


following two sections. 


C. THE COMPUTER AIDED PROTOTYPING SYSTEM (CAPS) 


The Computer Aided Prototyping System (CAPS) is an integrated environment aimed 
at rapidly prototyping hard real-time embedded systems [LK88, Luqi91]. CAPS software 
tools includes an execution support system, a syntax directed editor with graphic 
capabilities, a software base and an engineering database management system. Figure 2.2 
shows the structure of CAPS. 

CAPS provides a systematic design method for rapid prototype construction. CAPS 
prototypes a system through translation of the high level specification language 
Prototyping System Description Language (PSDL) [BL Y88] into Ada code by making use 
of the stored reusable components. To generate a prototype, the designer of the prototype 
uses the graphic editor to create a graphic representation of the proposed system. This 
graphic representation is used to generate part of an executable description of the proposed 
system, represented in PSDL. PSDL specification will be used to perform an automated 
search of the component library for preexisting candidate implementations. An integration 
and transformation schema will then be used to transform the PSDL specification into the 
implementation language code that connects the retrieved reusable components. The 


prototype is then compiled and executed. The user evaluates the prototype against the 


expected behavior of the proposed system. Repetitions of this process should yield a system 


CAPS 


Software Execution 
Database Support 


that satisfies the requirements. 


User 
Interface 


Engineering Static 
DBMS Scheduler 


Graphic 
Editor 





Software Dynamic Syntax 
Base Scheduler Editor 





Tools 


Translator Interface 





Debugger 


Figure 2.2 - Structure of CAPS 
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. D. THE PROTOTYPE SYSTEM DESCRIPTION LANGUAGE (PSDL) 


A powerful, easy to use, and portable prototype description language is a critical part 
of an automated rapid prototyping environment. Such a language is needed before the tools 
in the environment can be built. 

PSDL [BLY88, BL88] is the specification language used in CAPS. It serves as an 
executable prototyping language at a specification or design level and has special features 


for real-time system design. PSDL has facilities for recording and enforcing timing 


constraints, and for modeling the control aspects of real-time systems using nonprocedural 
control constraints, operator abstractions, and data abstractions. It is especially well suited 
for large real-time systems, and is useful for prototyping typical Ada applications. Ada is 
convenient for implementing PSDL because the mechanisms of Ada support the features 
of PSDL. Therefore, PSDL can easily interface to reusable Ada components as PSDL 
execution support system 1s also in Ada. PSDL is used to describe the connections between 
the components of a prototype, and to specify the behavior of the reusable components in 
the prototype as well as those in the software base. 

PSDL provides two kinds of building blocks for prototypes: abstract data types and 
operators. Software systems are modeled as networks of operators communicating via data 
streams. The PSDL data types include built-in types of Ada, user defined abstract types, the 
special types time and exception, and the types that can be built using the type constructors 
of PSDL. 

PSDL operators have two major parts: the specification and implementation. The 
specification part contains attributes describing the form of the interface, the timing 
characteristics, and both formal and informal descriptions of the observable behavior of the 
operator. Specification may optionally include inputs, outputs, exceptions, generic 
parameters, states and timing information. These interface characteristics are defined by the 
software engineer during the design process to specify the operator and form the basis for 
retrievals from a reusable component library or software base. 

The implementation part determines if the operator is atomic or composite. Atomic 
operators have an implementation keyword specifying the underlying programming 
language, followed by the name of the implementation module implementing the operator. 
This name is supplied either as a result of a successful retrieval from the software base or 
is supplied by designer. Composite operators have the attributes communication graph, 


internal data, control constraints, and informal description. 





E. OBJECTIVES 


The major purpose of this thesis is to provide tools to facilitate the practice of software 
reuse within the Computer Aided Prototyping System (CAPS). 

Currently, a software base provides prototype designers with the means to retrieve 
components. Reusable components are retrieved from the software base using a formal 
specification as the search key or through a browser. The specification language used is the 
Prototype System Description Language (PSDL). The software base stores the reusable 
components in an object oriented database management system (ONTOS) with an 
appropriate PSDL specification. 

The study conducted in this thesis was aimed at achieving three major goals: (1) to 
modify the software base to allow the integration of the retrieved components into new 
applications; (2) to transform and integrate the chosen retrieved components to the system 
under development; (3) to design and develop a graphical user interface (implemented by 
using TAE Plus) for manipulating available software base operations, including the 


storage, retrieval, and integration of the components. 


F. ORGANIZATION OF THE THESIS 


Chapter II provides a brief background on information retrieval methodology and 
gives an overview of the current retrieval systems and tools. Chapter III describes the 
structure of the CAPS software base. Chapter IV discusses the integration of reusable 
components into new applications and provides the design methodology. Chapter V 
describes the design and implementation of software base graphical user interface. Chapter 


VI is the conclusions and recommendations for further research. 


II. BACKGROUND AND PREVIOUS RESEARCH 


This chapter describes some technical background concerning reusable software 
components and their retrieval, and reviews previous and current systems that implement 


various methodologies to achieve this purpose. 


A. INFORMATION RETRIEVAL 


The problem of retrieving reusable software components from a library is in general 
an information retrieval problem [Stei91]. The important concepts from information 
retrieval that relate to reusable component retrieval are representation, search, and 
measures of performance. 

Representation is the way the object sought is structured to facilitate retrieval. For 
example a list of keywords may be provided for the future retrieval of a certain component. 
The method of representation must support the method used to search for the object. A lot 
of research has been conducted for search mechanisms, especially in the areas of artificial 
intelligence and database management systems. The method of representation and the 
method of search work together to form a cohesive environment for information retrieval. 
The more refined and precise the method of representation, the easier the search mechanism 
becomes. Various representation and search mechanisms will be described in the following 
section. 

The two most important measures of performance are precision and recall [SM83]. 
Precision is the ratio between the number of relevant components retrieved and the total 
number retrieved. It is the answer to the question, “What percentage of the retrieved 
components are relevant?” Recall is the ratio between the number of relevant components 
retrieved and the number of relevant components in the database. It is the answer to the 
question, “What percentage of the relevant components on the database did my query 
find?” Precision and recall obtain ideal values when the set of components retrieved is 


exactly the same as the set of components that are relevant. 
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B. METHODS FOR RETRIEVING REUSABLE COMPONENTS 

Almost all of the tools developed for retrieving reusable components use one or more 
of three different approaches for retrieval; browsers, informal specifications, or formal 
specifications. The fundamentals of each approach will be described in this section and then 


some existing tools using these methods will be reviewed in section II.C. 


1. Browsers 

A browser is a general purpose, usually window-based tool for looking through 
collections, categories, or hierarchies of components at various levels of abstraction 
[Meye88]. The objective is to allow the system user to manually search for the desired 
component. 

The advantage of a browser is that the user is given complete control over the 
entire collection of components. This is especially useful if the user is familiar with the 
content of the software collection and already knows the components being searched. 

The first disadvantage is that the method is basically manual, and the user should 
browse through the whole set of components to find the one that is desired. This also means 
a very low precision. 

Second, it requires the user's knowledge of the structure of the component 
collection. Another issue related to this problem is that the search may be local, causing the 
failure or inefficiency of the retrieval; that is, if a suitable component is defined elsewhere 
in the system, it is not going to be found if user doesn’t know to look at there. 

Third, unless retrieved component is equipped with proper documentation, the 
user should look into the source code to determine if the component satisfy the 
requirements. Another related issue is that if the user has not found the exactly matching 
component for the needs, there will be no clear termination point for search. 

Fourth, if the size of the software base is large, this method will be unacceptably 


insufficient and time consuming. 
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2. Informal Specifications 
Retrieval techniques based on informal specifications require the user to describe 
or list some of the attributes of the component being looked for. Informal specification 


methods include key word search, multi-attribute search, and natural language interfaces. 


a. Keyword Search 

Keyword search mechanisms require the user to specify a list of words 
relevant to the object being sought. Keywords can be drawn from a known system 
vocabulary (controlled vocabulary), or they can be unconstrained (uncontrolled 
vocabulary). In the case of unconstrained keywords, synonym tables are often used to find 
more standard words on which to perform the query [SM83]. 

The advantages of this approach are easy implementation and its conceptual 
simplicity for the user. These aspects make it a very commonly used technique. 

One disadvantage of this approach is precision and recall of the system 
depend on the number of the keywords used. A lower number of keywords, for example, 
one, results in high recall and low precision as a large number of components will be 
retrieved; whereas too many keywords will have the opposite effect. 

The second disadvantage is the user should be familiar with the structure of 
keyword categories. Both of this disadvantages cause the search to be an exercise of trial 


and error. 


b. Multi-attribute Search 
Multi-attribute search mechanisms are similar to keyword search 
mechanisms, but also use other characteristics of the component being searched. These 
characteristics that can be utilized for retrieval are the class of the object (procedure, 
function, package, etc.), the number and types of parameters, the number of operations it 


supports, its domain of use, etc. 
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The advantage of this method is that a component description contains more 
than just keyword information. The attributes taken together make up a classification 
scheme that provides more information than would be present in a pure keyword search. 

The disadvantage of multi-attribute search is that the classification and 
subsequent storage location of a component defined by its attributes is left to the 
administrator, but users will not necessarily classify the same component the same way. If 
the user succeeds in filling in the same values, the query will be successful, otherwise recall 


of similar components will be low. 


c. Natural Language Interfaces 


This 1s a growing area of computer science research. An advantage of this 
system is the ease of language query formulations by system users. 

In reusable component retrieval, the query will be issued through a natural 
language. Because of the ambiguity inherent in the broad semantics of natural language, a 
complex and detailed processing of the input language needs to be applied. Overcoming the 


difficulties of semantic analysis is the main challenge in dealing with natural languages. 


3. Formal Specifications 

There are many specification languages that has been used to describe the 
semantics of software processes. Examples of existing specification formalisms are 
predicate calculus [RW90b], plan calculus [RW90a], and algebraic formalisms [GTW78]. 

Because these specification languages are based on such specification formalisms 
they are free from ambiguity and can be transformed into normal representations by using 
logic and term rewriting rules without changing their meaning. 

The disadvantage is specifications may be difficult for to write. Another 
disadvantage is that processing times for the search algorithms may be excessive depending 


on the approach taken. Finally, matching formal specifications is a hard problem. 
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C. CURRENT RETRIEVAL SYSTEMS AND TOOLS 


This section describes some of the systems that have been built to perform reusable 


component retrieval and investigates the methods used by each system. 


1l. Draco 


The Draco project [Neig84] is an approach to software engineering that has had a 
large impact on software reusability in general. The Draco approach focuses on domain 
engineering of software. 

The most important aspect of Draco is the domain language. Software 
components are organized into problem areas or domains and a domain language describes 
objects and operations of a particular domain. There is a reusable component associated 
with each domain language object or operation. Since there is a potentially large number of 
components within a domain, a classification scheme is developed for the components 
called faceted classification to aid in organizing and retrieving the components. 

Using faceted classification, Draco approach utilizes a multi-attribute query 
method. Queries are constructed by the formulation of a tuple of attributes that best 
characterizes a particular domain. À query session begins with the most specific query, that 
is, all attributes filled in. If the results of the query are unsatisfactory, the user may 
generalize the query by inserting wildcards for attribute values. 

The advantages of faceted classification are that it i5 conceptually simple for users 
and relatively easy to implement. Because of this, the concept has been borrowed to 
implement the retrieval mechanisms in both RAPID (see Section II.C.2) and OSS (see 
Section II.C.5). 

One disadvantage of multi-attribute search is that semantically similar 
components may not be found when their attribute definitions are different. Draco 
alleviates this problem by maintaining a measure of conceptual closeness for the term lists 
of each attribute. This way, an unsuccessful search can be tried again using an alternative 


but similar term in one of the attributes. 
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The disadvantages of faceted classification are that it is not suitable for 
unconstrained domains and semantically similar components may be missed from other 


domains, even with a conceptual closeness measure. 


2. RAPID 


The RAPID (Reusable Ada Packages for Information System Development) 
project is an ongoing effort in the Department of Defence [Voge90]. The objective of 
RAPID is to provide software engineers with quick access to reusable Ada packages in the 
information systems domain. The functions it performs are reusable software component 
classification, storage, and retrieval. 

RAPID uses a faceted classification scheme to organize and retrieve components 
and falls into the category of multi-attribute search. No measures of performance or quality 


assessments are available yet. 


3. The Reusable Software Library 


The Reusable Software Library is a system designed to make software reuse an 
integral part of the software development process [BW87]. The system couples a passive 
software database with interactive software design tools to help software developers find 
and evaluate components to meet their requirements. 

Components are stored in the database with attribute values that provide a basis 
for search. There are two methods available to search for components, standard multi- 
attribute search and natural language. The multi-attribute approach provides a menu driven 
interface in which the user selects the attributes with which to perform the search. 
Alternatively, the user may express his query in the form of natural language, such as "I 
need a stack package.". The system parses the input, extracts keywords from it and uses 
those words as attributes to perform the search. 

The designers of the system report that the natural language front end is 
considerably easier to use but the search is significantly slower, by a factor of five to ten 


because of the natural language parsing overhead involved. 
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4. The Programmer”s Apprentice 

The goal of Programmer's Apprentice project is to apply artificial intelligence 
techniques in an effort to automate the programming process [RW90a]. It is designed to 
provide intelligent assistance in all phases of a programming task. 

A reusable component is called a cliche. A cliche represents a commonly used 
combination of elements such as abstract data types, binary searches, etc. Thus, programs 
may be considered as collections of interrelated cliches. 

A formalism called Plan Calculus is developed to represent cliches. A plan 
defines a single cliche in three parts: a plan diagram, a logical annotation, and an overlay. 
Together these parts constitute a language independent formalism for describing reusable 
software components. 

A maintenance tool called the Recognizer automatically finds all occurrences of 
a given set of cliches in a program and builds a hierarchical description of the program in 
terms of the cliches found. It is not clear whether the Recognizer will be used as a general 
purpose component retrieval tool. It is currently limited to finding algorithmic cliches but 
the researchers hope to extend its capability to find data structures and data abstraction as 


well. 


5. Operation Support System 

The Operation Support System (OSS) is an ongoing project aimed at developing 
an integrated software engineering environment undertaken by Naval Ocean Systems 
Center [Stei91]. One goal of the project is to establish a Navy software library of reusable 
software components. 

The current prototype library subsystem allows component retrieval using faceted 
classification, keywords, or a textual browser. The components currently stored in the 
library are large command, control, and communications subsystems. Since the library is 


in its early stages, no information is available on its performance characteristics. 
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6. Specifications as Search Keys 


An experimental system developed at Carnegie Mellon University uses formal 
specifications to search software libraries [RW90b]. Each function in the library has a 
corresponding formal specification. Specification matching is the process of determining 
whether a specification of a library function satisfies a query. Specifications and queries are 


written in AProlog. 


Each specification has a signature and some semantic information. Their aim is to 
match first on signature and then increase precision by matching on specification 
semantics. The system designers claim that the use of semantics in specification matching 
increases precision. Although they give examples showing precision is improved, they do 


not provide statistics that indicate how much. 
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HI. CAPS SOFTWARE BASE 


The paradigm for rapid prototype construction in CAPS leads the designer from a 
graphical representation of the prototype, through specification with a prototyping 
language (PSDL), and then on to code generation. Figure 3.1 shows the prototyping process 


supported by CAPS (LK88]. 
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Figure 3.1- The CAPS Prototyping process 
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As seen, CAPS takes advantage of a library of reusable software components. The 
prototype designer writes specifications for the operators and data streams to model system 
requirements, these specifications are used to locate components that will satisfy those 
requirements. A retrieval system that is automatic, efficient, and effective relieves the 
designer from having to use a browser or some other manual means to locate components. 
This is particularly beneficial when the software base contains a large number of 
components. Once the desired component is retrieved, the next challenge is to integrate it 
into the system. 

The functionality of software base can be divided into three main categories: Storage, 


retrieval, and integration of components. This scheme can be viewed in figure 3.2. 


SOFTWARE BASE 


Component Component Component 


storage retrieval integration 





Figure 3.2 - Functionality of Software Base 


The storage and retrieval facility of software base is described in the remainder of this 


chapter, and integration process is described in chapter iv. 


A. COMPONENT STORAGE 


Due to the complexity of storing variable length source code and querying the software 
base using PSDL specifications, a powerful DBMS is necessary. This DBMS should also 


support multi-user and networked access to its data as CAPS is designed for multi-user 
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networking environment. This database should perform the component storage facility of 


the software base. 


1. ONTOS Database Management System 

Ontos is a distributed object database management system [Onto90]. It consists 
of a database, a set of utilities, and a C++ interface. It was selected for use in the software 
base project because it has sufficient capabilities to handle the requirements for the 
implementation of an advanced reusable software component library. 

Ontos allows the database developer the ability to make any data object persist 
past the execution of the program that created it. To achieve this, the ONTOS class library 
introduces an Object class. It is the parent of all persistent classes. Object defines a 
constructor for creating objects in the database and a destructor for deleting them. The 
Object class constructor assigns each object a unique identifier and provides methods to 
store and retrieve them. 

Ontos includes a set of persistent aggregate classes in order to efficiently handle 
collections of persistent objects. The aggregate classes include Dictionaries, Lists, Sets, and 


Arrays. The aggregate class hierarchy is shown in figure 3.3. 


Object 


Aggregate 


Figure 3.3 - The Aggregate Class Hierarchy 
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The aggregate classes are container classes and are used to deal with groups of 
objects. The List class is analogous to a linked list data structure. The Set class implements 
the standard concept of set and the Array class implements the concept of arrays. The 
Dictionary class is the most versatile of the aggregate classes and it is extensively used to 
implement the structure of the software base. All of the four classes are fully dynamic and 
can grow without bound. 

The Dictionary class is a keyed data structure that can be ordered or unordered. 
Every entry in a Dictionary has two attributes stored, the Tag and the Element. The Tag is 
used for indexed look up and the Element is to hold the data. Dictionaries may allow or not 
allow duplicate elements for a given Tag. 

Ordered Dictionaries are maintained in ascending key order and use B-tree access 
structure to sort entries based on the relative ordering of their tag values. Unordered 


Dictionaries use hash table access structure. 


2. Storing The Components 

The CAPS software base [McDo91] is designed as a general purpose tool capable 
of storing components implemented in many programming languages. Because of the 
differences in the capabilities of each programming language there are differences in the 
way the pre-defined abstract data types used in PSDL to specify components are interpreted 
by the software base. These differences in the interpretation of PSDL specifications require 
that all components of a particular implementation language be considered in a unique 
domain. It is also possible to create multiple component domains for a given 
implementation language. Each domain is a library composed of five parts: a component 
dictionary, a keyword library, an operator library, an abstract data type library, and a 
recognized type matrix. 

For each component in a domain, six text files must be stored. These files are the 


PSDL specification, the implementation language specification, the implementation body, 
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the informal description, the axiomatic specification, and a normalized version of the 
axiomatic specification. 

A persistent class was designed inheriting from the Ontos class Object to allow 
storage and retrieval of these text files. Instances of this class is used as attributes of each 


component in the software base to store the files. 


B. RETRIEVING THE COMPONENTS 


There are three methods to retrieve a stored component: by PSDL query, by keyword 
query, and through a component name browser. Although browsing by component name 
and keyword querying are not the preferred methods for finding reusable components in a 
large software base, they are necessary features of any software collection. 

Each domain is divided into two categories: abstract data types and operators. An 
ordered list of components is provided for browsing the components by their name in these 
disjoint categories. 

Each software base library also includes a keyword library for handling keyword 
access to its components. The keyword attribute of PSDL specification is used to perform 
a keyword structured search in the software base. The result of a keyword query is a list of 
those components that posses one or more of the query keywords. The list is ordered with 


those components that satisfy the most query keywords coming first. 


l. Query by PSDL Specification 

This method uses the syntax and semantics of the PSDL specification to conduct 
the search for a component. First, the PSDL specification is modified to improve the 
efficiency of the search. The process of transforming or manipulating the specification for 
a reusable software component is called normalization. 

Components to be stored goes through a syntactic and semantic normalization 
process that transform the component's PSDL specification to facilitate later matching. The 
normalized specification is stored with the component in the software base. At the retrieval 


phase, a query for a library component is formed by constructing the PSDL specification 
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for the desired component. The query specification is syntactically and semantically 
normalized and then matched against the stored specifications. 

Syntactic normalization standardizes the form of the query’s interface 
characteristics to be used in syntactic matching. Semantic normalization transforms the 
signature and axioms of the specification to make them suitable for semantic matching 
[Stei9 1]. Syntactic matching takes place before the semantic matching. Syntactic matching 
is faster and quickly narrows the list of possible candidates while semantic matching is time 
consuming and should be applied to as small a candidate list as possible. The main benefit 
of syntactic matching is speed whereas the advantage of semantic matching is accuracy. 
This schema is shown in figure 3.4. The functional programming language OBJ3 is used 


for semantic matching and further details can be found in [Ste191]. 
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Figure 3.4 - Normalization for Component Retrieval 
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IV. INTEGRATION OF REUSABLE COMPONENTS 


Once a reusable component is retrieved, incorporating it into the developed software 
system is an important task of a software base. Software base should support the automatic 
adaptation of the retrieved components into the program at construction time ensuring the 
full context compatibility. This process will require a transformation procedure to be 
applied on the retrieved components such as changing the parameters, operator names etc. 


as well as instantiating the generic parameters. 


A. INTEGRATING THE REUSABLE COMPONENTS INTO CAPS 


Software base should provide a component implementation that meets the needs of the 
CAPS execution support system. To accomplish this, the retrieved component should be 
transformed into a suitable form to be used by the implemented system. On the other hand, 
software base cannot directly generate implementation code as it is not language specific. 
Therefore, we need an integration tool to generate the necessary code to incorporate the 
component into the system. In the rest of this chapter, the methodology and the 
implementation of an integration tool developed for incorporating the retrieved 


components into the CAPS is discussed. 


1. An Integration Tool For CAPS Software Base 

The software base provides three methods to retrieve a stored component as 
discussed previously. The kind of method used for retrieval is important for incorporation. 
We have a PSDL query containing the requirements of execution support system if 
component is retrieved by query, and no specification is provided if keyword query or 
browsing by component name methods are used. 

If component is retrieved by PSDL query, we can use this query specification in 
transformation to change the input/output parameter names, operator or type names, and to 


instantiate the generic parameters if there is any. 
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If retrieval is conducted through other methods, no change of parameter and 
operator/type name is necessary, but we still should have means to instantiate the generic 
parameters and transform the retrieved component into a form that can be used by the 


system. 


B. METHODOLOGY FOR TRANSFORMATION 


It has been difficult to reuse software components in practice as in most cases two 
instances of the same component are rarely alike. Typically, many small variations on a 
theme exist and generally it is difficult to predict which variation will be needed in a certain 
implementation. 

This situation can be alleviated by providing a transformation mechanism that adapts 
the components explicitly stored in software base. This capability has two important effects 
on software reuse. First, retrieval process has a much better chance of successfully 
retrieving a specified component from the software base compared to a system that can only 
return components explicitly stored in the software base. Second, automatically adapting 
the reusable components after retrieval is important in rapid prototyping where designer 
time is at a premium. 

Transformations should take place in such a way that it should have no effect on the 
stored component, yet it should be readily usable by the system. This means that instead of 
moditying the retrieved component, it should be used as a basis for the transformation 
module. In our case, this is accomplished through the with statement for Ada libraries. The 
same schema may be applied to other languages through an inheritance mechanism as it 
will be the case in C++. This module should be automatically generated as a part of the 
retrieval/integration system. 

In our application, the transformation module will be created for each retrieved 
component and will be embodied in its own package through the integration process. This 
package will be saved in the work area and will be used by the designer. All name and 


parameter changes as well as generic instantiations will be embedded in this package. 
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Because there are various ways to retrieve a component, the creation of this transformation 
module varies for each method. 
The implementation of transformation module is discussed in sections 4.D and 4.E. 


The structure of integration tool is discussed in the next section. 


C. STRUCTURE OF THE INTEGRATION TOOL 
The Integration Tool is used to: 
(1) input PSDL of the retrieved component (and query if PSDL query method is used), 
(11) transform the required component, parameter names and perform instantiations, 
(111)output the transformation module encapsulated in its own package. 


The structure of the integration tool is in figure 4.1. 
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Figure 4.1 - Structure of The Integration Tool 
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In the first step, the PSDL specification of the retrieved component and the PSDL 
query (if the query by PSDL specification method is used for retrieval) are parsed by a 
LARL(1) parser. This parser is constructed by using the tools ayacc and aflex, which are 
Ada versions of the parser generator tools yacc and lex that are provided in UNIX 
environment [TTS88, Self90]. 

In the second step, PSDL of the retrieved component is evaluated. Depending on the 
retrieval method, various structures that will be used to compose the transformation module 
are created. If retrieval is performed by PSDL query, operator and/or type names and 
parameters of retrieved component are also mapped to the corresponding descriptions 
given in query. 

In the third step, an Ada package is created and the transformed representation of the 


retrieved component is written into this package to be used by the prototype. 


1. PSDL Parser 


Two LARL(1) parsers are used to parse the PSDL specification of the retrieved 
component, and the PSDL query if supplied. Because the actions and the resulting 
structures to be formed will be different for two types of integration process we need two 
different parsers, one for the integration of the components retrieved by PSDL query, one 
for the integration of the components retrieved by named look up or keyword query. Each 
parser is constructed by using a parser generator -ayacc, and a lexical analyzer -aflex. 

Two auxiliary packages are supplied to provide the structures in which the 
information about the parsed PSDL specifications will be stored for use during the 
composing process. These packages also contain the Ada code for the semantic actions 


which will take place during the parsing process of PSDL specifications. 
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The top level diagram of the parser is in Figure 4.2. 
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Figure 4.2 - Parser Generation 
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a. Parser Generator (Ayacc) 
Ayacc [TTS88] generates a parser from an input of BNF style specification 
grammar, accompanied by a set of Ada program fragments called actions to be executed as 
each grammar rule is recognized. The generated output is a set of Ada program units that 


act as a parser for the input grammar. 
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The main parser procedure yyparse makes a call to lexical analyzer function 
yylex to get an input token, and then matches the grammar rules and executes the actions 
associated with these grammar rules. Ayacc needs a specification file as input which is a 
collection of grammar rules and actions associated with them, along with the Ada 
subprograms we provided to be used in the semantic actions. The input specification files 
provided are psdl.y and query.y containing the rules to process the PSDL specifications of 
the retrieved component and query respectively. 

Ayacc generates four files, three auxiliary packages and a parser. The parsers 


generated for our application are in the files psdl.a and query.a. 


b. Lexical Analyzer (Aflex) 


Aflex [Self90] is a lexical analyzer generating tool written in Ada designed 
for lexical processing of character input streams. Aflex accepts high level rules written in 
regular expressions for character string matching, and generates Ada source code for a 
lexical analyzer, by using a finite state machine to recognize input tokens. Aflex can be 
used alone for simple lexical analysis, or with ayacc to generate a parser front-end, as in 
our application. 

Aflex generates a file containing a lexical analyzer function (yylex) along 
with two other auxiliary packages. Lexical analyzer is implemented as an Ada package in 
this application. The files query lex.l, for retrieval by PSDL query, and psdl lex.l, for other 
retrieval methods, are the inputs to aflex. They define the lexical classes and the regular 
expressions used in the PSDL grammar. Each regular expression is associated with an 
action which is written in Ada and executed when the regular expression is matched. The 
lexical analyzer function yylex returns a single token after each call, made by the parser 


procedure yyparse of ayacc. The name of the generated file 1s psdl_lex.a. 


2. Transformation Process 
Retrieved component is used as a basis for the creation of the transformation 


module. This process is conducted in two phase. First, the PSDL specification of the 


po 


retrieved component is parsed and the necessary information about the component is stored 
in the structures supplied in the auxiliary package component aux pkg. This information 
includes the name of the component, whether the component is a type or operator, generic 
parameters, and input/output parameter names and values. If the component is a type, 
information related to each operator is also extracted during the parsing process. 

Second, the retrieval method is evaluated in the composition phase. If retrieval 
process is accomplished through named look up or keyword query, the creation of the 
transformation module is conducted by using the information extracted from the PSDL 
specification of the component during parsing. This process is analogous to the use-as-is 
methodology. Although it is not the preferable method of code reuse, it can still be utilized. 
Therefore, we included an integration mechanism for these kind of retrieval and reuse 
schemes as well. Output of composer is the transformation module containing the 
implementation that incorporates the retrieved component as is through Ada with statement 
and renaming. This procedure is explained in detail in section 4.C.2.a. 

If retrieval of the component is accomplished by PSDL query, we need a mapping 
mechanism. For this purpose, the PSDL query is also parsed and similarly the information 
about the query is stored in a separate structure supplied by the auxiliary package called 
query aux pkg. This information is used to transform the component name, operator 
names (if component is a type), and parameter name and values to maintain the consistency 
in the system. 

Mapping process is carriéd out during the composition of the transformation 
module by using the information from both structure packages, namely 
component aux pkg and query aux pkg. During this mapping procedure generic 
parameters are also taken into consideration. If retrieved component is generic, the value 
of each input and output parameter is checked against the generic parameters. This issue is 
addressed in section 4.C.2.b. 

The resulting transformation module is implemented as a package and saved in 


the prototype directory. Thus, implementation for the integration of each retrieved 


30 





component is encapsulated in its own package. The file this package is written into is called 
proto-prefix.atomic.a where atomic stands for the component name. The details about the 


creation of the transformation module is in the following two sections. 


a. Transformation Module for The Components Retrieved by Browsing 

Keyword query and named look up of components are two methods used for 
reusable component retrieval. None of these methods provide the specifications required 
by the design process. Nevertheless, we should provide ways to integrate a component 
retrieved by these methods as it may be desirable to use this component as it is. In this case 
no parameter change is required. We need to generate a package withed to the retrieved 
component and rename the contained procedures. 

For this process, the PSDL specification of the retrieved component is used 
to generate the transformation module. Figure 4.3 is the schema for the creation of 


transformation module. 
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Figure 4.3 - [ntegration process 


The PSDL specification of the retrieved component is parsed and the values 
to construct the transformation module are extracted. These values, which are component 
name, parameter name and values etc., are then used to construct the transformation 
module. At this phase, the generic parameter values should also be supplied to pertorm the 
instantiation of generic components. A detailed discussion of generic instantiation can be 


found in section 4.C.3. 
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After this process, an Ada package containing the transformation module is 
created and written in the proto-prefix.atomic.a file by utilizing the package 
component_compose_pkg. Resulting package is saved in the prototyping directory. 

An example template about the contents of the generated package can be seen 
in Figure 4.4. ADTs and procedures (corresponding types and operators in PSDL 


specification) are both incorporated the same way. 


proto-prefix.retrieved component.a 


with retrieved component; 
package retrieved component pkg is 
--if generic 
package tmp retrieved component pkg is new 
retrieved component ( -parameters- ); 


procedure pl ( -parameters- ) renames tmp retrieved component pkg.pl; 


procedure p2 ( -parameters- ) renames ump retrieved component, pkg.p2; 


end retrieved component pkg; 





Figure 4.4 - Generated package of transformation module 


b. Transformation Module for The Components Retrieved by Query 
Designer will create a PSDL specification, which will describe the properties 
of the desired component, during the prototyping process and will use this specification to 
query the software base to find a matching component. If there is any matching component 
in the software base, the retrieval will be successful and a list of retrieved components (one 
or more) will be available. Then the designer will choose the component which best suits 


to his or her design and will integrate that component into his/her system. 
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The PSDL query contains the specific information about the required 
component such as the desired component name, parameter name and values, procedure 
names etc. Although the retrieved component satisfies the query, it will probably have 
different component name, parameter name and values, and may even be generic. In this 
case we need to transform these values and names, and instantiate the component if it is 
generic. 

Integrating such a component requires a mapping schema. The names and 
values of the retrieved component should be mapped to those of the names and values of 
the query. This process is accomplished by the integration tool and the resulting 
transformation module contains the implementation consistent with the query. Figure 4.5 


gives the top view of the schema to perform this operation. 
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Figure 4.5 - Integration Process 


The PSDL of the retrieved component and query PSDL are parsed and 
portions of relevant information is stored in respective structures. During the composing 
operation the retrieved component is with' ed to the transformation module. If the retrieved 
component is generic, it is instantiated with the generic values supplied. Then, depending 
on whether the retrieved component is operator or type, each procedure is renamed 


according to the procedure and input/output parameter names in the query PSDL. 
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Meanwhile, each input/output parameter value is also checked to determine whether it is 
generic. 

After this procedure is carried out, the implementation is consistent with the 
PSDL query. The transformed representation of the retrieved component is then saved into 
the prototyping directory and it is ready to be used in the prototype. The name of the file 
the implementation is saved in is proto-prefix.atomic.a, where atomic stands for the desired 
component name specified in the PSDL query file. Figure 4.6 is an example output for the 
transformation module, query component stands for the name of the component specified 


in the PSDL query. 


proto-prefix.query component.a 


with retrieved component; 
package query. component. pkg is 
--if generic 


package tmp. query component pkg is new retrieved component(-parameters-); 


procedure query. pl (-parameters-) renames tmp query component pkg.retrieved pl; 


procedure query_p2 (-parameters-) renames unp query component pkg.retrieved  p2; 


end query component pkg; 





Figure 4.6 - Generated package of transformation module 


One problem that may be encountered during this process is the retrieved and 
query (desired) component names being the same. In this case renaming the retrieved 
component with the same name will cause an error with respect to Ada rules. To prevent 


this problem a certain naming convention must be applied. 
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One solution is appending a suffix to the component name given in the PSDL 
query, but this will also require a change in the PSDL query to maintain the consistency 
between the query and implementation. A better solution is to store every component in the 
software base with a known suffix. Thus, their corresponding PSDL specifications will be 
consistent and will require no further modification. The suffix used in this implementation 
is 5b, 1.e. the name of a sort procedure stored in software base will be sort sb. 


A detailed example of integration process is given in Appendix A. 


3. Generic Instantiation 


In case the retrieved component has generic parameters, instantiation of the 
component during the transformation process should take place. There are a few aspects 
that should be taken into consideration during this process. 

First, we need to be able to instantiate the generic components retrieved by named 
look up or keyword query. In this case, the generic values are not available to the software 
base. Generic parameter values should be supplied by user. 

If retrieval is accomplished through PSDL query, the query may contain some or 
all of the generic parameter values. The challenge here is to match the generic parameters 
with the correct values supplied by the query. For example, if two generic parameters exist 
in the retrieved component and two values are supplied by the query PSDL, during 
instantiation correct values should be used for the corresponding appropriate parameter. 
This situation is worsened if the supplied values by the query PSDL are user defined type. 
In this case a chain mapping of generic parameter values will be required. These user 
defined types may even be defined in another PSDL specification as this is a common 
practice in Ada programming where type definitions are generally encapsulated in a 
separate package. In this case the required PSDL file should be searched and appropriate 


generic values should be extracted from this file. 
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Considering the difficulties of such an implementation, an alternative way may be 
to redefine the user defined types in the query PSDL and/or to modify the query such that 
all generic values can be extracted and matched to the generic parameters. 

In this implementation the transformation module generates the template for the 
instantiation of the generic parameters and a message is displayed to the user to request the 


generic parameter values. 
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V. GRAPHICAL USER INTERFACE FOR SOFTWARE BASE 


The software base graphical user interface (GUI) is designed to demonstrate and 
manipulate the capabilities of the software base as efficiently as possible by applying 
generally accepted user interface design principles. This chapter outlines the software base 
graphical user interface design decisions. Appendix B is the user's manual, and Appendix 


D contains the source code for the software base graphical user interface. 


A. DESIGN PRINCIPLES 


The key goals of a user interface design are to make the system easy to learn and use, 
to reduce the error rate, and to be intuitive to the user. This requires a user interface to be 
consistent, provide feedback, minimize error possibilities and provide error recovery, 
accommodate multiple skill levels, and minimize memorization. 

To satisfy all these goals is not easy in practice, and requires a through analysis of both 


the potential users and the required functionality of the underlying system. 
I. Users 


a. Assumptions 

The CAPS users are expected to be a large spectrum of people, a user can be 
a novice student or a highly skilled software engineer. 

All users are assumed to be accustomed to graphical windowing 
environment. They are considered tó know the basic skills such as using a mouse, working 
with pull-down menus or push buttons, etc. 

The user is assumed to have a basic knowledge of PSDL specification 
language and its functionality in the CAPS. He/she is not expected to be an expert. 

The user is assumed to be familiar with the implementation language he 1s 


working on. Currently all operator and types are implemented in Ada. 
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b. Requirements 

Considering the assumptions about the user and preferred design decisions, 
an efficient user interface should satisfy these basic requirements for user: 

* Must be suitable for a wide range of users from novice to expert. 

* Must be easy to learn and use, should require no user manual for operation. 

* Must use a graphical, mouse driven interface. 

* Must provide on-line help. 

* Must show user only relevant information and steps. 

* Must display only one panel/menu item at a time. 

* Must provide feedback to the user. 


* Must give warnings if a destructive action is going to take place. 


2. System 


Since CAPS is an ongoing project at the Naval Postgraduate School, underlying 
system requirements are easy to determine. The Software base GUI: 
e Must run on Sun or compatible workstations under Unix operating system. 


e Must run under X-Windows for portability. 


B. IMPLEMENTATION CONSIDERATIONS 


The previous version of software base user interface was written using Stanford’s 
InterViews toolkit (version 2.6) as a prototype. InterViews makes extensive use of C++ 
features such as inheritance and provides a number of predefined objects, including push- 
buttons, scrollbars, file management dialog boxes and text editors. Although 1t was a good 
candidate to implement this complete version of software base graphical user interface, the 
goal of CAPS is to implement the system tools in Ada as much as possible. Currently, the 
only existing tool that can be used in user interface design making use of Ada is 
Transportable Applications Environment (TAE) [Nasa91]. This aspect of TAE as well as 
the other qualifications described in the following section, has played a key role to choose 


the TAE as the toolkit to implement the software base graphical user interface. 
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1. Transportable Applications Environment (TAE) 


a. Introduction 


The software base graphical user interface is implemented by using 
Transportable Applications Environment (TAE) Plus, an integrated environment for 
developing and running contemporary window and graphics based application systems. 
TAE Plus is a portable software development environment that supports rapid building, 
tailoring, and management of graphic-oriented user interfaces. It provides a suite of 
integrated tools and software libraries for developing and running highly interactive, 


graphical application systems. 


b. Environment 


TAE Plus utilizes X window system, Version 11, Release 4, and the Open 
Software Foundation’s Motuf Toolkit, Version 1.1.1. InterViews 2.6 is also bundled with 
TAE Plus. 

Figure 5.1 illustrates the relationship between a TAE Plus application and the 


X11 software. 


TAE PLUS APPLICATION 


WPT 
(Window Programming Tools) 





Operating System Libraries 


Figure 5.1 - TAE Plus, Motif, and X11 
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The application primarily calls Wpt functions. The Wpt package is layered on 
top of the Motif Toolkit, which interfaces with the X Window System. Motif Toolkit 
provides various high level interface objects called “widgets”. X Toolkit is based on Xlib, 
which provides useful set of graphics primitives. 

While the Wpt routines provide a convenient buffer between an application 
and the complexities of X11 and the X Toolkit, an application is free to access the X Toolkit 
and Xlib directly. 

TAE Plus is portable across a wide range of computing platforms using either 
UNIX or VAX/VMS operating systems, and is capable of generating code in C, Fortran, 
and Ada. 


c. Advantages 

e Sophisticated GUIs can be built in less time. 

e Easy to use. 

e Flexible and modular, changes can be made locally without effecting the 
other parts of the system. 

* Portable, it can be utilized on many different computing environments. 

* Reusable, interaction objects and panels can be reused and shared avoiding 
the duplication of the effort. 

* Consistent, it provides interfaces that have a common look and feel across 
different applications and environments. 


* Possibility of implementation in different languages. 


C. SOFTWARE BASE GUI ARCHITECTURE 


The software base GUI is designed to manipulate software base operations through a 
series of user interactive panels. These operations can be classified into three category: 

(1) library operations, 

(i1) retrieval operations, and 


(111) manipulation operations. 
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The software base GUI can be started by executing the command softbase.exe, by 
passing two command line arguments. First argument is the path to the prototype directory 
and the second argument is the prototype prefix, which is required by the software base 
script for compilation. The argument prototype-directory-path specifies the current 
prototype directory where the design process is carried out. The retrieved component and 
the integration package are saved in this directory as default. This path can also be entered 
as an environment variable (for example, SPROTOTYPE). The argument prototype-prefix 
is added to the beginning of the names of each saved file. This prefix is used in software 
base script to group each compilation unit. 

Due to the current equipment setup in CAPS lab, it is necessary to invoke the software 
base on sun51, since Ontos libraries is on sun51. 

Online help is provided for all major software base operations. Various warning and 


error messages are also included to help the user. 


1. Library Operations 

The panel for library functions is the top level of the software base GUI system. 
It provides selection, addition, and deletion operations to be performed on software base 
libraries. 

If the creation of a new library 1s required, library addition panel provides input 
for the name of the new library and the rule file to be used. This operation allows one to 
create new libraries (for example C++, Adal, Ada2, etc.). 

Library deletion panel is used to remove an existing library and all of the 
components of that library. Library addition and deletion operations are accessible only by 
the authorized personnel (root). 

Library selection option is provided for the user to perform his/her operations on 
the desired library. After selecting the library name, the rest of the operations are performed 


on that particular library. 
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2. Retrieval Operations 

After the desired library is selected, a main menu panel provides access to various 
retrieval operations. This panel also provides the option of component addition to the 
chosen library. 

The main menu panel provides options to conduct a PSDL or keyword query. A 
PSDL query file can be selected by browsing through the directories and it is used to 
perform the query. For keyword query, available keywords are displayed and the user can 
select as many keywords as he/she desires to conduct the query. The result of the queries is 
displayed in a separate panel and the user may select the most suitable component to suit 
his/her needs. 

This panel also provides the named look up of components under two categories: 
operators and types. User can choose a component by browsing through the existing 
components although this would not be an efficient way of retrieval if that library contains 


a large number of components. 


3. Manipulation Operations 
Following the retrieval of a component, various operations can be performed for 
further manipulation. One of the operations is to view the files stored in the software base. 
These files are the PSDL specification, the implementation specification, and the 
implementation body files. 
Other available operations are to delete the selected component from the software 
base, to save the component to the workplace, to print the specification and implementation 


files of the component, and to integrate the component into the system under development. 


D. CONCLUSIONS 


TAE Plus is an efficient tool to design and implement sophisticated graphical user 
interfaces. It is also suitable for hardware platforms that CAPS runs. User interfaces 


consistent with the other CAPS tools user interfaces can easily be developed by using TAE 
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Plus. That Ada is one of the implementation languages of this tool is also suitable, given 
that one of the major goals is to implement the whole CAPS in Ada. 

Evaluating these benefits of TAE Plus, the decision is made to use this tool to 
implement the software base graphical user interface. The developed interface is a mouse 
driven, easy to use graphical user interface which 1s consistent with the requirements given 
in section 5.A. On-line help facilities are also included, although it is pretty straight forward 
to use the system. Various panels for information, warning and error messages are also 
included. 

The software base graphical user interface user’s manual is given in Appendix B, 


explaining the details of the developed system. 
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VI. CONCLUSIONS AND FUTURE RESEARCH 


A. ACCOMPLISHMENTS 

Three basic tasks are accomplished in this thesis to enhance the software reuse within 
the CAPS. 

First, the software base system first described in [McD091] was revised and modified 
to accommodate the requirements of current CAPS system. Major changes made were in 
parser and keyword query modules. Parser was modified according to the requirements of 
current PSDL specification rules. Keyword query module was changed to allow multiple 
keywords to be used as search keys. 

Second, an integration mechanism has been designed and implemented to incorporate 
the retrieved components into CAPS. An integration module is created and saved to the 
workplace for every retrieved component. All referencing, renaming, and instantiation 
processes are encapsulated in this module according to the requirements of the prototyped 
system. 

Third, a complete graphical user interface has been designed and implemented to 
demonstrate and manipulate the capabilities of the software base. All software base 
operations such as search, retrieval, and integration can be performed through the software 
base GUI. 

There are still many areas that can be improved by future research. The following 
section describes those areas and provides recommendations that may help solve some of 


the problems. 
B. FUTUREWORK 


1. Providing Components For Software Base 


The components to be added to the software base must be thoroughly tested to 


ensure that they meet their specifications. Testing of software components is still a 
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challenging area and requires further research. This is necessary in order to make reusable 
software libraries more successful. 

The components that should be incorporated to the CAPS software base must be 
specified in PSDL. A study for the automation of this process can be found in [Seal92]. 
Application of this study to some of the existing software sources such as Booch library, 
RAPID project, and Ada software repository should provide plenty of good quality 


software components to be utilized by the software base. 


2. Integrating Generic Components 


Currently, the generic parameter values of an integrated component is supplied by 
user. This process can be automated by including an internal matching/mapping 
mechanism to the software base. One example of this process is the employment of OBJ3 
specification in [Ste191]. Other mechanisms may be developed that perform the mapping 


of these parameters and matching them with the provided values for generic instantiation. 


3. Ensuring Consistency 
Updating and deleting components from the software base may cause system 
inconsistencies. These inconsistencies may result from the interdependencies of the 
components in the software base or from the dependency of the previously developed 
prototypes to the retrieved components from the software base. Currently, software base 
administrator manages the consistency of the system. This process can be automated by 


utilizing a version control schema. 


4. Seperate GUI For User And Administrator 
The software base GUI designed and implemented in this thesis demonstrates the 
full functionality of the CAPS software base. However, an ordinary user will not need such 
functions of software base as adding and deleting software libraries and components, 


updating existing components, etc. While this detailed software base interface is utilized by 
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system administrator, a simpler interface may be designed, emphasizing only those aspects 


of software base which will be frequently used by users. 





46 


[Ada83] 


[Bass87 |] 


[Bass88] 


[BL88] 


[BL91] 


[BLY88] 


[Booc86] 


[Booc87] 


[Booc90] 


[BP89] 


[BW87] 


[Cox90] 


[FH87] 


[GTW78] 


LIST OF REFERENCES 


Departrment of Defence ANSI/MIL-STD-1815A, Reference Manuel for the 
Ada Programming Language, Ada Joint Program Office, January 1983. 


Basset, P. G., Unifying the Life-Cycle: CASEing Reusability, CASE 87, 
Advance Papers, Vol 1, 1987. 


Basset, P. G., Reusability in Software Design, Construction and 
Maintenance, CASE 88, Advance Papers, Vol 2, 1988. 


Berzins, V. and Luqi, Rapidly Prototyping Real-Time Systems, IEEE 
Software, September 1988. 


Berzins, V. and Luqi, Software Engineering with Abstractions, Addison- 
Wesley, Reading, MA, 1991. 


Berzins, V., Luqi and Yeh, R., A Prototyping Language for Real-Time 
Software, IEEE Transactions on Software Engineering, Vol. 14, pp.1409, 
October 1988. 


Booch, Grady, Software Components with Ada, Second Edition, The 
Benjamin/Cummings Publishing Company, 1986. 


Booch, Grady, Software Engineering with Ada, Structures, Tools and 
Subsystems, The Benjamin/Cummings Publishing Company, 1987. 


Booch, Grady, Library of Reusable Ada Components, Wizard Software, 
Lakewood, CO, 1990. 


Biggerstaff, T. J. and Perlis, A. J., Software Reusability Volume I Concepts 
and Models, Addison-Wesley, 1989. 


Burton, Bruce A., Wienk, Rhonda, and others, The Reusable Software 
Library, IEEE Software, V. 4, pp. 25-33, July 1987. 


Cox, B. J., Planning the Software Industrial Revolution, IEEE Software, 
Sept. 1990. 


Ferrans, J. C. and Hurst, D., Facilitating Software Reuse via Automated 
Software Librarians, CASE 87, Advance Papers, Vol 1, 1987. 


Goguen, J. A., Thatcher, J.W. and Wagner, E.G., An Initial Approach to the 
Specification, Correctness, and Implementation of Abstract Data Types, 
Current Trends in Programming Methodology, Volume IV, Raymond T. Yeh, 
ed, Prentice-Hall, Inc., 1978. 


47 


[Koeg87] 


[KL91] 


[LK88] 


[Lupas xS) 


[Luqi88] 


[Lugi89] 


[Luqi91] 


[McDo91] 


[Meyess] 


[Nasa91] 


[Neig84] 


[Onto90] 


[RW90a] 


[RW90b] 


[Seal92] 
[Self90] 


Koegel, J. F., Application of Enabling Technologies to Software Reusability, 
CASE 87, Advance Papers, Vol 1, 1987. 


Katwijk, Jan van and Li, Haikuan, The Steps Towards Reuse-in-the-Large, 
Delft University Technology, Delft, Netherlands, 1991. 


Luqi and Ketabchi, M., A Computer Aided Prototyping System, IEEE 
Software, March 1988. 


Lubars, M. D., Environmental Support for Reuse, CASE 88, Advance Papers, 
Vol 2, 1988. 


Luqi, Knowledge-Based Support for Rapid Prototyping, IEEE Expert, Winter 
1988. 


Luqi, Software Evoluation via Rapid Prototyping, IEEE Computer, May 
1989. 


Luqi, Computer Aided Software Prototyping, IEEE Computer, September 
199]. 


McDowell, J. K., A Reusable Component Retrieval System for Prototyping, 
Master's Thesis, Naval Postgraduate School, September 1991. 


Meyer, Bertrand, Object-Oriented Software Construction, Prentice Hall, 
1988. 


NASA Goddard Space Flight Center, Release Notes for TAE Plus, ver. 5.1, 
FL, April 1991. 


Neighbors, James M., The Draco Approach to Constructing Software from 
Reusable Components, IEEE Transactions on Software Engineering, V.10, 
pp. 564-574, September 1984. 


Ontologic Inc., Ontos Object Database Documentation Release 2.0 Beta, 
Burlington, MA, October 1990. 


Rich, Charles, and Waters, Richard C., The Programmer s Apprentice, 
Addison-Wesley, 1990. 


Rollins, Eugene J., and Wing, Jeanette M., Specifications as Search Keys for 
SW Libraries: A Case Study using Lambda Prolog, CMU-CS-90-159, 
Carneige Mellon University, 26 September 1990. 


Sealander, J., Master's Thesis, Naval Postgraduate School, September 1992. 


Self, J., Aflex - An Ada Lexical Analyzer Generator, ver. 1.1, Arcadia 
Document UCI-90-18, University of California, Irvine, CA, May 1990. 


48 


1 


[SM383] 


[Stei91] 


(TTS88] 


[Voge90] 


[Y TSS) 


Salton, G. and McGill, M., Introduction to Modern Information Retrieval, 
McGraw-Hill, 1983. 


Steigerwald, R. A., Reusable Component Retrieval via Normalized Algebraic 
Specifications, Ph.D. Dissertation, Naval Postgraduate School, December 
199]. 


Taback, D., Tolani, T., and Schmalz, R.J., Ayacc User's Manual, ver. 1.0, 
Arcadia Document UCI-85-10, University of California, Irvine, CA, May 
1988. 


Vogelsong, T., and Rothrock, J., Reusable Ada Products for Information 
Systems Development (RAPID) Lessons Learned During Pilot Operations, 
U.S. Army Information Systems Software Development Center, Washington, 
1990. 


Yin, W. P. and Tanik, M. M., Reusability in the Real-Time Use of Ada, CASE 
88, Advance Papers, Vol 2, 1988. 


49 


APPENDIX A - INTEGRATION EXAMPLES 


In this appendix various examples of integration of components are given. The 
component chosen as an example is the partial implementation of a set ADT. Two operators 
are included in it and two versions of the same component is provided : generic and non- 


generic. 





A. INTEGRATING A COMPONENT RETRIEVED BY NAMED LOOKUP 
5. Retrieving a Non-generic Component | 


a. PSDL Specification of Retrieved Component 


type set 
specification 


—————— - 


Operator empty 
Specification 
input  si:set 
output  s:set 
end 


operator adi 
specification l 
input Ie E 
si:set | 
QUE DUES OS ee 
end 


keywords set 


description ( set ) end 
implementation ada set sb end 
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b. Proto.set.a 


with set sb; 
package set, pkg is 


procedure empty ( si : in set; 
S tout set ) 
renames set sb.empty; 


procedure add (x : in t; 
Sl: in set; 
so: out set ) 
renames set_sb.add; 


end set_pkg; 


6. Retrieving a Generic Component 


a. PSDL Specification of Retrieved Component 


type set 
specification 
generic 

t :GENERIC, TYPE, 


operator empty 
specification 

Out Ss: See 
end 


operator add 
specification 
input xt, 
Si:set 
output so:set 
end 


keywords set 


description { set } end 
implementation ada set_sb end 
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b. Proto.set.a 
with set. sb; 
package set pkg is 
package tmp set pkg 


procedure empty ( s 
renames tmp set pkg. 
procedure add ( x 
S1 
SO 
renames tmp set pkg. 


end set pkg; 


is new set sb ( gen p ); 
out set ) 


empty; 


in gen p; 
in set; 
out set ) 

add; 


B. INTEGRATING A COMPONENT RETRIEVED BY PSDL QUERY 


1. Retrieving a Non-generic Component 


a. PSDL Specification of Retrieved Component 


type set 
specification 


operator empty 
Specification 
input  si:set 
GWE SET Se Sete 
end 


operator add 
specification 
input x:integer, 
si:set 
output so:set 
end 


keywords set 


description { set } end 
implementation ada set_sb end 
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b. PSDL Query 


Cype integer, set 
SPor Cation 


emendaromee mese 
specification 
inpe in set :set 
eu—"tpueeout- set :set 
end 


operator put 
Sec cate en 
input item  :integer, 
in, set :set 
output out, set :set 
end 
end 
implementation ada integer. set end 


c. Proto.integer_set.a 
with set sb; 
package integer set pkg is 


procedure create ( inset : in set; 
out set : out set ) 
renames set sb.empty; 


procedure put ( item : in integer; 
in"set : in set; 
out_set: out set ) 
renames set_sb.add; 


end integer set pkg; 
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2. Retrieving a Generic Component 


a. PSDL Specification of Retrieved Component 


type set 
specific cacon 
generic 

ESGENER CATA DES 





operator empty 

specification / 
QuCI UP ES: Scb 

end 


Operator add 
speci Motion 
Inpe X E; 
si:set 
outputa- a Set 
end 


keywords set 
description { set } end 
implementation ada set sb end 


b. PSDL Query 


type int, set 
spécification 


operator create 
specification 
input in_set :set 
output out set :Sset 
end 


operator put | 
specification | 
input item  :integer, 
in. set :set 
output out set:set 
end 
end 
implementation ada int set end 


———— ge€— M — - 
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c. Proto.int set.a 


with set_sb; 
package int_set_pkg is 
package tmp_int_set_pkg is new set_sb(integer); 
procedure create ( inset >: in set; 
out set : out set ) 
renames tmp int, set pkg.empty; 
procedure put ( item Min nteger; 
Ii Sete 
out set: out set ) 


renames tmp. int. set pkg.add; 


end int, set pkg; 
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APPENDIX B - SOFTWARE BASE 
GRAPHICAL USER INTERFACE USER'S MANUAL 


The software base graphical user interface is implemented by using Transportable 
Applications Environment (TAE) Plus, an integrated environment for developing and 
running contemporary window and graphics based application systems. 

The Software base GUI can be started by executing the command softbase.exe, by 
passing two command line parameters. First parameter is the path to the prototype directory 
and the second parameter is the prototype prefix, which is required by the software base 
script for compilation. Because of the required environment variables, it should be invoked 
while working on sun$51 or rxterm ed to sun51. This requirement is due to the current Ontos 
libraries being on sun$1. 


The terminology used in this appendix is consistent with TAE Plus documentation. 


A. LIBRARY FUNCTIONS 


Library functions panel is the top level of the software base GUI system. It provides 


three kinds of functionality: Library Operations, Quit, and Help. 


Library Operations : 
&» Library Selection 


V Library Addition 


& Library Deletion 





Figure B.1 - Library Functions Panel 
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Library Operations option provides three choices which are Library Selection, 1.e. 
selecting the library that is going to be used throughout the software base manipulations 
(Adal, Ada2, C++, etc.), Library Addition, in case creation of a new library is desired, and 


Library Deletion, if the deletion of an existing library from the software base 1s desired. 





Library Operations : : è 1 


v Library Selection : è i 
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i> Library Addition 1 
V Library Deletion |. } 1 
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Figure B.2 - Library Functions Panel Connections 
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Library Selection panel displays the existing libraries in the software base. Clicking 
one of the libraries, for example Ada, results in all the operations to be performed on that 
particular library. It can be considered as a library domain selector. After clicking on the 
OK button, Main Menu panel is displayed to perform further software base operations. 

Library Addition panel is provided to add new library domains into the software base. 
User keys in the new library name and the associated rule file name. Upon clicking on the 
OK button a new library is created and displayed in the library selection panel. This option 
is provided only for the authorized personnel (root). 

Library Deletion panel is used to delete a library from the software base. This panel 
displays the existing library list. Selecting one of the libraries and clicking on OK button 
brings a warning message. Validating the operation deletes the selected library and all of 
the components in that library from the software base. This option is provided only for the 
authorized personnel (root). 

Quit button terminates the software base GUI. 

Clicking on Help button changes the mouse cursor into a '?' mark. Clicking the cursor 
on the desired item displays a help window about that item. For example, clicking on 
Library Operations brings a help window informing about the functionality of each 


operation. 


B. MAIN MENU 


Main Menu panel provides the basic operations of software base. 





Figure B.3 - Main Menu Panel 
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These operations, implemented as pull down menu, include Component Add/Update, 


Browse Types/Operators, and Keyword/PSDL Query. 


7. Component Add/Update 


Clicking on Component Add/Update brings the /nput File Selection panel. 


Input File Selection 
PSDL File Imp. Spec Pile Imp. Body Pile 





Figure B.4 - Input File Selection Panel 


Inputs to the software base are made up of three text files. The PSDL 
specification, the implementation specification, and the implementation body. This panel 
allows the selection of each of these files. 

The directory box displays the files and subdirectories in the current working 
directory. Under this box, the directory label displays the name of the current directory. 
Clicking on a directory in directory box will change to that directory and the path for the 
new directory will be displayed in the directory label. Clicking on a file will select that file 
and the selected file will be displayed in the file label box. After all the files are selected, 
clicking on OK button will cause the input files to be processed. 

If Component Add operation is invoked, the system will attempt to add the 


component to the software base. In case of an error, an error message will be displayed. 
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Otherwise, the panel will be removed and Main Menu panel will be displayed indicating a 
successful addition. 

If Component Update operation is invoked, the new PSDL specification and 
implementation files will replace those that are currently in the software base. 


Cancel button will cause the input operation to terminate. 


8. Browse Types/Operators 


Clicking on Browse Types/Operators brings the Component Selection panel. 
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Figure B.5 - Component Selection Panel 





Depending on the selection, this panel displays a list of all the operator or type 
components in the software base and a one line description of each component. These 
components are ordered alphabetically. 

Selecting a component and clicking on View button will bring up a view of that 
components PSDL specification. See section B.C for details on using View panel. 

Selecting a component and clicking on Select button will bring up a menu of more 
detailed operations on the selected component. See section B.D for details about this 
option. 

Cancel button will cause the panel to disappear and brings up the Main Menu 


panel. 
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9. Keyword/PSDL Query 


a. Keyword Query 


Clicking on keyword query brings up the Keyword Selection panel. 


Keyword Selection Menu 


Keywords Selected 





Figure B.6 - Keyword Selection panel 


This panel allows the selection of keywords for a keyword search of the 
software base. Existing keywords in the software base are listed in the left box. Clicking on 
a keyword will add it to the Keyword Selected box. Once the desired keywords are selected, 
pushing the OK button will start the search. The resulting list of the components found in 
software base will be displayed in the Component Selection panel (See B.B.2). 


Pushing the cancel button will terminate the keyword query. 


b. PSDL Query 


Clicking on PSDL query will bring up the Query File Selection panel. 
Input to the software base 1s a PSDL specification file to conduct the query. 
This panel allows the selection of PSDL file. The directory box displays the files and 


subdirectories in the current working directory. Under this box, the directory label displays 
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the name of the current directory. Clicking on a directory in directory box will change to 
that directory and the path for the new directory will be displayed in the directory label. 
Clicking on a PSDL file will select that file and the selected file will be displayed in the file 
label box. After the query PSDL file is selected, clicking on OK button will cause the query 
to be processed. If any components were found that match the query specification then the 
Component Selection panel (See B.B.2) will be displayed providing a list of matching 


components. Otherwise, a message will be displayed stating that no component is found. 
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Figure B.7 - Query File Selection Panel 





C. VIEW COMPONENT | 


After a component 1s selected from Component Selection panel, one of the operations | 
that can be performed on the component is to view the files stored in the software base. | 
These files are the PSDL specification, the implementation specification, and the | 
implementation body files. 

Clicking on View button on the Component Selection panel brings up the PSDL 


Specification Viewing panel. If no component is selected a warning message is displayed. | 


62 


RKS LLR LLNS 





Viewing 


'e99999990990999029097 | . | | A| AM + O S | w— -:$89900999*0909920990* 


Figure B.8 - PSDL Specification Viewing Panel 


This panel displays the PSDL specification for a given component. The name of the 
file displayed appears on the top of the display box. 

By clicking on the View Spec button, implementation specification of the selected 
component can be viewed in a similar fashion, and consequently the implementation body 
file. Because the viewing panels are not removed, all three files can be viewed 
simultaneously. To remove the panels, Cancel buttons should be pushed. 

As implementation specification and implementation body view panels are very 


similar to this panel, they are not included in the figures. 


D. SELECT COMPONENT 


Clicking on Select button on the Component Selection panel brings up the Select panel. 


If no component is selected a warning message is displayed. 
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Figure B.9 - Select Panel 


This panel enables user to pertorm various operations on the selected component. 
Clicking on Delete button causes the component to be deleted from the software base 
after displaying a warning message. 


Clicking on Save as button brings up the Save Component panel. 





| 
| 





Figure B.10 - Save Component Panel 


This panel enables the user to save the selected component in any workplace. All three 


files, PSDL specification, implementation specification and implementation body files, are 
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saved into the specified directory. Default is the prototype directory and path to this 
directory is obtained from the first argument of user interface executable. 

Clicking on Print button displays three options: printing the PSDL file, printing the 
implementation specification, or printing the implementation body. Selected files are 
printed through the default printer. 

Clicking on Cancel button terminates the panel. 

Clicking on Help button changes the mouse cursor into a '?' mark. Clicking the cursor 
on the desired item displays a help window about that item. 

Integrate button is used to incorporate the selected component into the system. 
Pushing this button brings up the /ntegration panel. The integrate button of this panel 
causes the integration tool to be enabled and resulting integration module (the package the 
code is encapsulated) is saved into the prototyping directory together with the retrieved 
component. Depending on the retrieved component being generic or non-generic, an 


information message is displayed in the box. 
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Figure B.11 - Integration Panel 


The only difference between /ntegrate and Integrate/Quit button is while first button 


returns back to the Main Menu panel, the latter quits the program after integration process. 
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APPENDIX C - SOURCE CODE FOR 
INTEGRATION TOOL 


PSDL LEX.L 


E ale s~psdisilex i 
*** Author : Dogan Ozdemir 
* * MED : September 1992 


* ^k ck ck ck xe ode de ck cock oce ck ck ck ck o e ck e ck ck ck e ck ck ck oc ck ck ck ck ck o ock ck ck ck ck e ck ck o ck ck ck ck ok ok ck ck ck ck ck ck ck ox c o ck ck ok x xoxo xo 


STAR LDENT =a 
Et [0-9] 


(Digit)- 


Letter  [a-zA-Z.] 

Alpha (tCLetterj d Disk) 
Blank E “eta 

Text B 

o NS 
Quote tad 


de NEO EEE Ur WO es OU E step utm msg 


oe 


[aA] 
[bB] 
pec] 
[dD] 
(eE] 


(A) CD) (A) (ENTER(Z);return(ADA TOKEN); ) 
{A} (2) AMES {ENTER (Z) ; return (AXIOMS_TOKEN); } 
(B) (Y) (Blank)+(A)(1) (L) (ENTER(Z);return(BY_ALL_TOKEN); ) 


66 





(B) (Y) (Blank)+(S)(0)(M)(E) (ENTER(Z) ;return(BY SOME TOKEN);) 


mee O) {N}(T) (R} {0} (L) CENTERNWZ) feeurmeCONTROL TOKEN); ) 

EM tN) to)( 1} {R) {Apel ) (S) (ENTER(Z); return (CONSTRAINTS. TOKEN); ) 
om) {A} (T} {A} PEMDERBUZ)PSretürm DATA TOKEN); ) 
ESSE) TR) CI) (PUT 71730) [N; (ENTER(Z);return(DESCRIPTION_TOKEN); ) 
E (D)(G)(E) (ENTER(Z);return(EDGE TOKEN); ) 

EE (N) (D) (ENTER(Z) ;return(END TOKEN); ) 


(EX(X) (C) CE) CP) (D) (CI2(0) CN) (5) CENTER(Z) ;return(EXCEPTIONS TOKEN); ) 
(EJOX) (C) (CE) CP) (D) CD 0) (N) (ENTER(Z) ; return ( EXCEPTION. TOKEN; ) 


MEET) (N) (1) (S)(H) (ENTER (2) ;return(FINISH_TOKEN); ) 
may 1} {T} (HH) {1} {(N) (ENTER (2) ;return(WITHIN_TOKEN); ) 
NE) TE) (N) (E) (R) (1) (C) {ENTER (Z) ;return(GENERIC_TOKEN); } 
EEI R) (A) (P) (H) (ENTER(Z);return(GRAPH TOKEN); ) 
MES TOY (U)(R)(S) (ENTER (2) ;return(HOURS_TOKEN); ) 
(1) (F) (ENTERTA return (IF TOKEN); ) 


ENLUD (EP(LJ)(E)(M)CE) CN) (T) (A) (T2 (12) (0) (NJ 
(ENTER(Z);return(IMPLEMENTATION TOKEN); ) 
Mime TY{TV (I) {A){L){L}{Y} (CENTER(Z);return(INITIALLY TOKEN); ) 


( 
EEN) (P)(U)(T) (ENTER(Z);return(INPUT TOKEN); ) 
EVE) CY)UW) CO) (R) (D) (S) (ENTER(Z) ; return (KEYWORDS. TOKEN);) 
INCA EX) (1) (M) (0) CM (ENTER(Z);return(MAXIMUM TOKEN); ) 
met} {Ey CC) {U0} CTY {I} TOV {N) {ENTER(Z) ; return (EXECUTION_TOKEN): } 
ory {ry} {M}(E} ENTERZ);Betuena (TIME TOKEN); } 
(R)(E)(S)(P)(0) [N) (S)(E) (ENTER (2) ;return(RESPONSE_TOKEN) ;) 


mee, PC) (RR) (0) (5S) (E} (CC) IM) (1) COR) (OP TS) (E) (C} (0) (N} (D) (S) 

{ENTER (Z) ; return (MICROSEC_TOKEN) ; } 

(M) CI) CN) (I) (M) (U) (M) (ENTER (Z) ;return(MINIMUM_TOKEN); ) 

METAN CEOB) CI) CJ (G) GB1ank) « CP) (EJCR) CI) (9) (D] 
(ENTER(Z);return(CALL PERIOD TOKEN); } 

(M) (CI) (N) | (M) (I) (N) (U) (T) (E) (S) (ENTER(Z) ; return (MIN, TOKEN) ; ) 

(M) (S) I(M) CI) (DL) CE) (I) (S) CE) (C) (O) (N) (D) (S) (ENTER(Z) ; return(MS, TOKEN) ; ) 


mor, PP) {FE} {R} {A} (T} CO} (R} (ENTER (Z);reeurn (OPERATOR TOKEN) ; } 
me) (TT) L B Y {U) (T) {ENTER (Z) ; return (OUTPUT_TOKEN); } 
eee EY {R) {1} {0} {D} {ENTER(Z) ;return{PERIOD_TOKEN); ) 


ees) (O} (U) (2) (RICE) (Di telank}+{B)(Y} (ENTER(Z) ;retUrn(REQUBY_TOKEN); } 
PONENS) (E) (T) (Blank) (T) (T) (M) (E)(R}) (ENTER(Z) ;return(RESET_TOKEN); } 
CSE N) (DIIS) (ENTER (2) 7Teturn (SEC_TOKEN) ;) 

EE UESICAHUCI)UCELUU) COM CA jr) CI) $9) CN) 
ESWESR(Z);return(SPECIFICATION TOKEN); ) 

IST TA) (R) (TABA) + (TFT) (MI (E)(R) (ENTER(Z) ;return(START. TOKEN) ; ) 


LST LTDA LTE LS) (ENTER (2) ¡return(STATES_TOKEN); ) 
MSN) CON TP) (Blan + (T)(1)(M)(E)(R) (ENTER) ;return(STOP_TOKEN); ) 
(S) (T) (R) (E) (A) (M) (ENTER(Z);return(STREAM TOKEN); ) 

(T) CI)(M) E) (R) m return. LIMER TOKEN); } 
wry) ( 1} {G) (6) (E} LRT LE) (D) {ENTER (Z) ;return (TRIGGERED _TOKEN); } 
vey ty) {PP} (EE) mas returm (ly PESTOKEN); ) 

My (E)(R){T) CE) (X} (ENTER(Z);return(VERTEX TOKEN);-) 
"and" | "AND" (ENTER(Z);return(AND TOKEN); ) 

for OR“ {ENTER (Z) ;return(OR_TOKEN); ) 

exer |” XOR™ fENTER(Z) ; return (XOR TOKEN); } 

=" (ENTER(Z);return(GREATER. THAN OR EQUAL); ) 
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Num M (ENTER(Z);return(LESS THAN OR EQUAL); } 
AN (ENTER (Z) ; return (INEQUALITY); ) 
ND (ENTER(Z);return(ARROW); ) 

"o CENTER TZ) Cetunn er) 

"P (ENTER(Z) returna r) 

"Ln (ENTER): return") a) 

"xu (ENTER(Z) ;retmrn('’*'); } 

T (ENTER(Z) ; return('/'); ) 

nen (ENTER(Z) ;retucn( t 

WE CENTER(Z);retuürn('(')5 4 

"jn (ENTER (2m return) ); 3 

"po (ENTERA) retinas |); 

"J" (ENTERAZ return 150 

v. (ENTER(2) returna: 

"on (ENBERY4Z) retur 1 ) 

"on (ENTER) = Ger in EM 

wpa (ENTER (2) recur | P 

nya (ENTER(Z);retuüru -') 3 

wen (ENTER(Z);return('<'); } 

"modi | MODI (ENTER (2) ; reBurn(MOD_TOKEN); } 
"rem" |] "REM" (ENTERAZ);retUEn REM TOKEN Te: 
"xxu EXP" | "exp" (ENTERGZ) ; returm@EXP_TOKEN); } 
"abs" | "ARS" (ENTER(Z);returnmwWABS TOKEN)-. Jj 
"not "¡NOM (ENTER(Z) ;return(NOT TOKEN); ) 
(T) (R) (URET (ENTER(Z) ;return(TRUE); ) 

(9 (A) (EDS) (E) (ENTER(Z);return(FALSE); ) 
<IDENT>' (ENTERÍZ); recur); 7 
(Letter) (Alpha) * CENTER EDEN. 


strlen(psdl_lex_dfa.yytext, length); 
the_1d token(l..lengrh = psd lers aa texte 


return(IDENTIFIER); ) 


(Quote)(StrLit)*(Quote) (ENTER(Z);return(STRING LITERAL); ) 
(ince {ENTER(Z) ;return( INTEGER _ LITERAL); ) 
(Int) EEN (ENTER(Z);return(REAL. LITERAL); ) 

T e ITI (L ENTER (21: Yreturn (TEST TPOKEN1 : )} 

(xn (NULL;) 

IE] (NULL;) --ignore spaces and tabs 


Tx 
with Psdl, Tokens,component, aux pkg; 
use Psdl Tokens,component, aux, pkg; 


package Psdl Lex is 
function yylex return token; 
end Psdl Lex; 


package body Psdl. Lex is 


HH 
end Psdl_Lex; 
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B. 


A de de 
*o*o* 
*oko* 


wee 


$token 
$token 
token 
$token 
$token 
token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
token 
$token 
$token 
$token 
$token 
$token 
token 
token 


PSDL.Y 


File psdl.y 

Author Dogan Ozdemir 

Date September 1992 
Jk 3e e ce ck c ke ck ok ok se ce se de e ck ck e ce ce ck Ke ck ok oe oe ck ok e e ck ck ck ce ck ck ck ck ck ck Ok cde ce ce cc ck ok cc cc ok ce ok ck ok ok ce ok ce ck oe oe oc ok ook oo 
a dm t pales Tal RE tet ' 1 1 I 

ARROW 

TRUE FALSE 


ADA TOKEN AXIOMS TOKEN 

P SAEC T TOKENTREO BY TTOKEN BY SOME TOREN 
CALCA FERIOCD TOREN CONTROL TOKEN 
CONSTRAINTS TOKEN 

DESCRIPTION TOKEN DATA- TOKEN 
ENDSIOKENGEBGE-TONEN EXCEPTION -TOKEN 
EXCHPTIONSSTOKENOEXECUTION-CTOKEN 
ELNISH TOKEN 

GENERIC_TOKEN GRAPH_TOKEN 

HOURS TOKEN 

IF_TOKEN IMPLEMENTATION_TOKEN 
INEUT TOKEN INITIALEXY TOKEN 
KEYWORDS, TOKEN 

MAXIMUM TOKEN MINIMUM TOKEN 
MISBROSESSIOKEN MIN-TOKEN MSL -TOKEN 
MOD TOKEN NOT, TOKEN 

OPERATOR TOKEN OR TOKEN 

OUTPUT TOKEN 

PERTOD TOKEN 

FESET TOKEN RESPONSE TOKEN 
SEECIRTCATIONT TOKEN SEC IOKEN 
START TOKENI STATESTITOKENSETOP_TOKEN 
STREAM_TOKEN 

TIME TOKEN TIMER-TOKEN 

TPE TOKENITRICSERED_TOKEN 
VERTEX TOKEN 

WTIHIN_ TOKEN 

TEXT_TOKEN 

PENT Ie LER 

STRING_LITERAL 

INTEGER_LITERAL 

REAL LITERAL 


--operator precedences 
left AND TOKEN OR, TOKEN XOR, TOKEN LOGICAL, OPERATOR 


$left 
RELATI 
$left 
$left 
$left 
left 


Gee eRe TRATOR EQUAL LESoeTHAN_OR_EQUAL INEQUALITY 
ONAL_OPERATOR 

+ e BINAR ADDING_OPERATOR 

UNARY_ADDING_OPERATOR 

'*' '/' MOD TOKEN REM TOKEN MULTIPLYING OPERATOR 


EXPCTOKEN'UABS-TOKEN NOT TOKEN HIGHEST'*PRECEDENCE OPERATOR 
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gstart start symbol 


( 


subtype yystype is integer; 


33 


start symbol: 


psdl: 


component: 


data_type: 


type_spec: 


psdl 


4 


psal 
component 
| 


f 


data_type 
| 
operator 


L 


TYPE TOKEN 
( 
1s. àdt 
) 
IDENTITETER 


( 


:=L do 


nus 


) 
type spec type impl 


4 


SPECIFICATION TOKEN optional, generic param 


optional type decl 


op spec list functionality END TOKEN 


T 


optional generic. param: 


GENERIC TOKEN , 
( 
ls generic :- 
Gen par. := 
} 
list_of_type_decl 
| 


. 
t 


True; 
Mete - 


optional_type_decl: 


op_spec_list: 


listEofotvpebdecl 
| 


. 
H 


op spec list 
OPERATOR, TOKEN 
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BEDENTIBIER 
( 
Empesopsnametl--NWength):sthe-rewtoken(l..length):; 
len name:-zlength; 
) 
operator spec 
( 
if is adt then 
component, aux pkg.Put adt op 

(tmp. op. name, len name,has inputs,has, outputs,adt,. op ptr); 

has inputs:- False; 

has outputs:-z False; 

in par:zFalse; 

out, par:-False; 

end irf; 


Aperator: 
OPERATOR_TOKEN 
( 
iS Operator := True; 
) 
IDENTIFIER 
( 


null: 
) 
operator spec operator, impl 
Eperator spec: 
SPECIFICATION TOKEN 


interface 
functionality 
END TOKEN 
interface: 
interface attribute reqmts, trace 
| 
attributes 


GENERIC_TOKEN 

( 

is_generic := True; 
gen_par := True; 

) 

IMstiot type decl 

| 

INPUT_TOKEN 

{ 


has_in_param := True; 
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has inputs -= True; 
in par := True; 
gen_par := False; 

) 

list of-ctvpecdecl 

| 

OUTPUT_TOKEN 

{ 


hajs_out_ param := True; 
has_outputs := True, 
in_par := False; 

out par := Irus. 

gen, par :- False; 


) 

list_of_type_decl 

| 

STATES TOKEN 

list of type decl 
INITIALLY TOKEN 
initial, expression list 
| 

EXCEPTIONS_TOKEN 

rd st 

| 

MAXIMUM, TOKEN EXECUTION TOKEN TIME. TOKEN time 


list of type-decl: 





list, of type decl ',' type. decl 
| 
type_decl 
type _ decl: 
id list 
( 
if gen par then 
if the id token(1l..length) - "BASE TYPE" or 
the id token(l..length) - "base type" then 
null 
else 
component aux pkg.Put gen parameter(the id token, 
" ",length,l,gen parse 
end if; 
end if; 
if in par then 
if out_par then 
RUE 
else 
component aux pkg.Put, in, parameter(the id token,length,in par. ptr); 
end if; 
end if; 
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1f ¿Que par then 
Nom Ponent aux pkg. Put out _parameter(the_1d_ token, length,out_par_ptr); 
endo if: 


) 


type name: 


me list: 


reqmts trace: 


Eunnctionality: 


keywords: 


type name 
( 
if in par then 
if out par then 
null >; 
else 
component_aux_pkg.Put_in_parameter_val(the_id_token, 
llenan, in par val ptr); 
end if; 
end És 


if out _ par then 
component aux pkg.Put out parameter val(the id token, 
TGT val ptr); 
end if; 


) 


U 


TDENTTETER 

MI 

list of type decl 
A 

| 

IDENTIFIER 


. 
, 


DI sis 
IDENTIFIER 
| 
IDENTIFIER 


1 


REQ BY TOKEN id list 
| 


keywords informal_desc formal_desc 


KEYWORDS_TOKEN 
( 


False; 
False;--in case no in/out parameters 


out par 
gen_par 


null; 
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informal. desc: 


formal. desc: 


type impl: 


öp o I 


operator_impl: 


psdl_impl: 


informal_desc 


id list 


DESCRIPTION TOKEN TEXT TOKEN 
| 


. 
f 


AXIOMS TORENCTEXTETOKEN 
| 


. 
U 


IMPLEMENTATION TOKEN ADA, TOKEN IDENTIFIER 

( 

withname.name(l..length):zthe. id token(í(l..length); 
withname.len:zlength; 

) 

END. TOKEN 

| 

IMPLEMENTATION_TOKEN type_name op_impl_list END_TOKEN 


H 


op.impl list OPERATOR "TOK EN. TD SNE EES Re T TTI 
| 


. 
í 


IMPLEMENTATION TOKEN ADA_TOKEN IDENTIFIER 


( 
withname.name(l..length):zthe id token(l..length); 
withname.len:=length; 

) 

END_TOKEN 

| 

IMPLEMENTATION_TOKEN psdl_impl END_TOKEN 


t 


data_flow_diagram streams timers control_constraints 


f 


data_flow_diagram: 


vertex_list: 


edge_list: 


GRAPH_TOKEN vertex_list edge_list 


a 
, 


vertex list VERTEX TOKEN op id optional time 
| 


. 
f 


edge_list EDGE_TOKEN IDENTIFIER 
optional_time op_id ARROW op_id 
| 
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BD id: 
IDIDENTIPIBEEK-CODpt-arg 
Soe arg: 
7 woperona | id list 
Sie eretonalveidslirst T)" 
| 
Eptional. id list: 
vta St 
| 
optional_time: 
I rime 


streams: 
DATA TOKEN STREAM TOKEN list of type decl 
| 
timers: 
TIMER, TOKEN id list 
| 
Beutrol constraints: 
CONTROL, TOKEN CONSTRAINTS TOKEN constraints 
constraints: 
constraints OPERATOR TOKEN IDENTIFIER 
opt trigger opt period opt finish within 
optam p opt mrt constralint options 
| 
OPERATOR_TOKEN IDENTIFIER 
OBUNEPSOger opt period copem inish within 
ope MED opt mre 
ESnstraint options: 
constraint options OUTPUT TOKEN id list IF TOKEN 
expression reqmts trace 
| 
constraint_options EXCEPTION_TOKEN IDENTIFIER 
opt_if_predicate reqmts_trace 
| 
constraint options timer op IDENTIFIER 
opt if predicate reqmts trace 
| 


. 
4 


4 


Ept trigger: 
TRIGGERED TOKEN trigger opt if predicate reqmts trace 
| 


is 


trigger: 
BY_ALL TOKEN id_iist 
| 
BY_SOME_TOKEN id_list 
| 
opt_period: 
PERIOD TOKEN time reqmts trace 
| 
opt finish within: 
FINISH_TOKEN WITHIN_TOKEN time reqmts_trace 
| 
Ope mer: 
MINIMUM TOKEN CALL PERIOD TOKEN time reqmts trace 
| 
Opt mrt: 
max_resp_time time reqmts_trace 
| 
max_resp_time: 
MAXIMUM_TOKEN RESPONSE_TOKEN TIME_TOKEN 
timer op: 
RESET_TOKEN 
| 
START_TOKEN 
| 
STOP_TOKEN 
opt if predicate: 
IF TOKEN expression 
| 
initial expression list: 
initial expression list ',' initial expression 
! 
initial_expression 
initial_expression: 
TRUE 
| 
FALSE 
| 
INTEGER_LITERAL 
| 
REAL_LITERAL 
| 
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nT 


STRING LITERAL 
| 


IDENTTEBIER 

| 

type name `.: IDENTIFIER 

| 

porem ume M DENTIFIER (i initial _ expression _list ')' 


| 

'(' initial expression list ')' 

| 

initial expression log op initial expression  £prec 
logical, operator 

| 

initial expression rel op initial expression  $prec 
relational, operator 

| 


-' initial_expression $prec unary adding operator 
| 


'-' initial expression $prec unary adding operator 

| 

initial expression bin add op initial expression prec 
multiplying operator 

| 

initial, expression bin_mul_op initial_expression  $prec 
multiplying operator 

| 

initial. expression EXP TOKEN initial expression $prec 
highest precedence operator 

| 

NOT_TOKEN initial_expression %prec 
highest_precedence_operator 

| 

ABS, TOKEN initial, expression  $prec 
highest precedence operator 


° 
t 


EOG Op: 
AND_TOKEN 
| 
OR_TOKEN 
| 
XOR_TOKEN 
mel op: 
IX | x! GREATERPSTHANSOR EQUAL 
| 
LESS THAN OR, EQUAL | INEQUALITY 
Esn-add op: 


Exncmul-op: 


7] 


=! | */* ] MODLTOKEN | REMSSBSENBIEI 


CIMS: 
time_number MICROSEC_TOKEN 
| 
time number MS TOKEN 
| 
time_number SEC_TOKEN 
| 
time_number MIN_TOKEN 
| 
time number HOURS DOKEN 
time number: 
INTEGERS LITERAL 
expression_list: 
expression_list ',' expression 
| 
expression 
expression: 
TRUE | FALSE | INTEGER LITERAL | time | REAL LITERAL 
| STRING LCITERAL IF IDENTIFIER 
| type name '.' IDENTIFIER 
| type name '.' IDENTIFIER '(' expression list ')' 
| '(' expression list ')' 
| expression log op expression  $prec logical operator 
| expression rel op expression  $prec relational operator 
| '-' expression  $prec unary. adding operator 
' expression  $prec unary adding operator 
| expression bin add op expression %prec 
unary adding. operator 
| expression bin mul op expression %prec 
multiplying operator 
| expression EXP TOKEN expression  $prec 
highest precedence operator 
| NOT TOKEN expression  $prec highest precedence operator 
| ABS TOKEN expression  £$prec highest precedence operator 


| "+ 


* 
H 


with Text io,psdl tokens,psdl. goto,psdl shift reduce,psdl lex, 
component aux pkg; | 

use Text io,psdl tokens,psdl, goto,psdl shift reduce,psdl lex, 
component aux pkg; 


package component parser is 


procedure Yyparse; 
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echo : boolean :- false; 


Amber of errors : Natural :- 0; 
mm par : Boolean:=False; 
EN par : Boolean:=False; 
gen_par : Boolean:=False; 
has_inputs : Boolean:=False; 
has_outputs : Boolean:=False; 
tmp_op_name Serna (1. 200 
len_name "EINntedger:z)s 


end component parser; 


package body component parser is 


Ecedure Yyerror(s : in strzng :- "syntax error") is 
begin 

member Of errors <= numbef"^of errors * 1; 

puce 1 


mut. line(s); 
end Yyerror; 


&$$procedure parse 


end component parser; 


pe 


C. QUERY LEX.L 


lo *escnerv- lex. 
== *** RurHon5 : Dogan Ozdemir 
-- *** Date : September 1992 


STA X hX X X XX X + X X X X X X X X X X X X X X X X + + h KKK KK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KK 


ZSTART IDENT Z 
Digit [0-9] 
Tnt (Digit)+ 
Letter —[a-zA-2Z_] 
Alpha ((Letter)|(Digit)) 
Blank [S tn 
Text [S6] 
StrLit  [^"XX] DENN S 
Quote LS 
[aA] 
[bB] 
[Se] 
[dD] 
[SEI 
PEF] 
[gG] 
[hH] 
EL] 





os E ond O as RO Ao A O O me 
D 
= 


oo 


% 


(A) (D) (A) (ENTER(Z);return(ADA TOKEN); ) 

(A) UL) TO OMS) (ENTER(Z);return(AXIOMS TOKEN); ) 

(B) (Y) (Blank)+(A) (L) (L) (ENTER(Z);return(BY ALL TOKEN); ) 
(B)(Y)(Blank)«(S)(O)(M) (E) (ENTER(Z) ; return(BY, SOME, TOKEN) ; 

(C) CO) UND UTOR) (ENTER (Z);return(CONTROL_TOKEN); ) 
(C)(O)(N)(S)(T)(R)(A)(I)(N)(T)(S) (ENTER(Z) ;return(CONSTRAINTS TOKEN); ) 
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OD) {A} (TY{A) ENTER Z) return DATA TOKEN); ) 

(DH(EJ(S) (CH(R)CIJCP)(T)CI)(O)(N) (ENTER(Z) ; return(DESCRIPTION TOKEN); ) 
BE CD) (G) (E) (ENTER(Z);return(EDGE TOKEN); ) 

(E) (N) (D) (ENTER(Z);return(END TOKEN); ) 
(E)(X)(C)(E)C(P) (ITO (I)(O) (CN) (S) (ENTER(Z) ; return(EXCEPTIONS. TOKEN); ) 
(E)(X)(C) (E) (P) (T) CI) (O)J (N) (ENTER(Z) ; returzn(EXCEPTION TOKEN); ) 


(FE) (1) (N) (1) (S)(H) (ENTER(Z);returní(FINISH, TOKEN); ) 
EDU I)(OT)(H)(I)(N) (ENTER(Z);return(WITHIN TOKEN); ) 
EE) (N)(E) (R) CI) (C) (ENTERQZ). BetuHNGENERIC TOKEN); ) 
PG} (R} {A} (P} (H} (ENTER(Z);return(GRAPH TOKEN); ) 
ET (to) (U) (R) (S) {ENTER(Z) ; return (HOURS_TOKEN); ) 
(1) (F) PENTER@2Z) ;rett@emcLF TOKEN): } 


ea {P) {L){E}{(M} (E}{N}(T) (A) (1) (1) (0) (N} 
{ENTER (Z) ;return(IMPLEMENTATION_TOKEN) ; } 
EN) (1) (T) (1) (A) (L)(L)(Y) (ENTER(Z) ;return(INITIALLY_TOKEN); } 


( 
or P)(U) (T) (ENTER(Z);return(INPUT TOKEN); ) 
MENTE) (Y) (W) 10) (R)(D)(S) (ENTER (2) ;return(KEYWORDS_TOKEN);) 
(M) (A) CX) CI) (M) (U) (M) (ENTER(Z);return(MAXIMUM TOKEN); ) 
EE ES (CU)CTPQIPDUOOQUN)SCENTER(Z) ;retuEn(EXECUTION. TOKEN); ) 
TIL) (M) (E) CENTER(Z);reg&rmééTIME TOKEN); } 
NU (E)(SYUP)tO)(N)(SYT(E) (ENTER (Z) ; return(RESPONSE. TOKEN) ;) 


ENIM (CHOR CO)IS) CEOCGONIEDACI )4C OR) COMCS)-CE) (C) (CO) CN) (D) (S) 
(ENTER(Z);return(MICROSEC TOKEN); ) 

IMEI (EN) (19 (M) (U) (MT (ENTER (2) ¿¡return(MINIMUM_TOKEN); ) 
BESPEESNCL) (Cb) CI) (N)€G) (Blank)CP) OE) CR) CI (O F€D) 
BENTER(Z);return(CALL. PERIOD TOKEN); ) 

NENNT) CN CH CI) (CN) (CU) CD) CE) (S) 

ESENTER(Z);return(MIN. TOKEN);) 

EMMA CTS) TE) EL) (LI) (S) (E) (0) (0) (NED) LS) (ENTER (Z) ; 5betursn«MS ATOKEN) ; 
) 


mop} {E} {R} {A} (T} {0} (R) {ENTER(Z) ; return (OPERATOR_TOKEN) ; } 
meee Oy {(T) (P} (U}{T} CENTER) return (OUTPUT_TOREN) ;. ) 
BUE) CR) (I) CO) (D) (ENTER (CZ) rpeturn (PERIODSTOKEN);  } 


ME) (O) CU) (IPRFCENED) (BTank)+(B) (Y) {ENTER(Z) ;return(REQ_BY_TOKEN); } 
ENS) (E) {T) (Blanket Ten) (Mi(E}{R}) (ENTER(Z) ;return(RESET_TOKEN); } 
Poe C) 1 (S} (FE) GC) (OON) (PPS) (ENTER (Z2)? £eturn (SEC, TOKEN) ; ) 

[ST CPI CE) CC) CI) (F2 CI(C) CA) (T) CI (0) ON) 

PENTER(Z) ;return(SPECIFICATION_TOKEN) ; } 

moped) {A} (R) {T) (Blank}+(T}{1)(M}(E}(R) (ENTER(Z) ;return(START_TOKEN); ) 


neem (AY{TY{E} (S} (ENTER (Z) ;return(STATES_TOKEN); } 
my} (O}{Py{ Blank}+(T}(1I}(M}(E}){R} (ENTER(Z) ;return(STOP_TOKEN); ) 
SET) (RICE) (A) (MS (ENTER(Z);return(STREAM TOKEN); ) 

EU I)(M)(CE)IR) (ENTER(Z);return(TIMER TOKEN); ) 
piper} (2) {(G)(G){(E}{(R}(E}(D}  (ENTER(Z) ; return(TRIGGERED TOKEN); ) 
erry } CP) (E) (ENDER 2 return (TYPE TOKEN); } 

my) {(E)(R)}(T) (E} (X} (ENTER(Z);retuen(VBRTPEXeTOKEN); ) 
sane” | “AND” (ENTER (2) ;return(AND_TOKEN); ) 

Aa" | "OR" (ENTER(Z):return(OR_TOKEN); ) 

aor” |" XOR” BSNTERCZ!I;return(XORSTOKEN); 4 

Bl" (ENTER(Z);return(GREATER THAN OR EQUAL); } 
Mec Ñ (ENTER(Z);return(LESS THAN OR, EQUAL); ) 
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u J=" onem (ENTER (Z) return INEQUALITY) i } 


wlan {ENTER (Z) ;return (ARROW); } 
uu (ENTER UM) ;retusnmWw' -'); 

"P CENTER (Z) ; return" +"); 

"n (ENDER(Z) ;wérurn('='); 

"xu DEDE OZ) fretum alee) 

"yu (ENTEBMZ);return('/'); 

we n CENTER(GZ):;returm E); 

"(u CENTER(Z);returm('('); 


"n VENTER (Z); return 
“pa {ENTER (2) ; return 


( 

( 

(Z 

( 

( 

( 

(Z 

( S 
( 

us (ENTER (Z) ;return 

( 

(Z 

(Z 

(Z 

( 

(Z 

( 

(2 

( 


) 
B 
E 


"irs ( ENTER a return 


K 

( 

( 

( 

( 
uu ( ENTER wra J 
UE ( ENTER $ return "= 
"ju (ENTER (Z); feurn  |'); 
Ls {ENTER Pt rettrrn S T 15 
D (ENTER  mewurnmo'«'): ) 
"Mmod” [MODA (ENTER 2) return 0D TOKEN) = 3} 
'"rem* | REMO (ENTER ;return(REM TOKEN); ) 
"»wcup EXP SUM ( ENTER o TOREN); } 
"abs" | "ABS" (ENTER(Z) ; return (ABS_TOKEN)® } 
"not" Sem (ENTER (2) ¡;return(NOT_TOKEN); ) 
(TY ER) CUATES (ENTER(Z) ;mecurmtrRUE); } 
{FP} {A} (bys) Ce} {ENTER(Z) ;return(FALSE); ) 
<IDENT>\' (ENTER(Z);return('''); } 
{Letter} {Alpha} * ^ {ENTER LDENG) 


strlen(query_lex_dfa.yytext, length) ; 
the id token(l..length) := query Jesmmedia.yvytext, 


return(IDENTIFIER); ) 
(Quote) (SEFEÉTES) MiQuote) (ENTER (2) ¡return(STRING_LITERAL); ) 


( 
SIDES (ENTER(Z);return(INTEGER LITERAL); ) 
Int?” Dmm (ENTER(Z);return(REAL. LITERAL); ) 
A eE {ENTER (Z) -returnm( TEXTS TORE) 
An] {NULL; } 
E. (NULL;)--ignore spaces and tabs 
23% 


with query Tokens,query. aux pkg; 
use query Tokens,Text io,query aux, pkg; 


package query Lex is 
function yylex return token; 
end query Lex; 


package body query. Lex is 


HA 
end query_Lex; 
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D. QUERY.Y 


kkk 
X X X 
xk * 


kk de 


$token 
token 
token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 


--oper 


File query.y 

Author Dogan Ozdemir 

Date September 1992 
k ck ce ck ce ce ce ck ck ce ck oe de ck ck ck ook ce ck ck ck ce de ce ode ck ce ce oce ck ce ck ck e ck ce oe ce ck ce ce ce ce ck ck ce ck ce ck c ck ce ck ck Oc cc oe oce ce oe ce oe oe coo X 
A E RE T Y 1 

ARROW 

TRUE FALSE 


ADA_TOKEN AXIOMS_TOKEN 

EN SDSSTDORENOREOSBYC TONENGBEYSSOME-TOKEN 
EXDLILSPERIODSTOKEN CONTROD-TOKEN 
CONSTRAINTS TOKEN 
DESCRIPTIION-TOKEN DATA TOKEN 
EDDBEDORSENSEDGE TFOKENTEXCEPTION TOKEN 
EXCEPTIONS TOKEN EXECUTION TOKEN 
EINISEH TOKEN 

CENERTCTTOKEN GRAPH TOKEN 

HOURS] TOKEN 

Bee TOKEN IMPLEMENTATION _ TOKEN 
NEUTATO RENE ETTABEr:-TOREN 
KEYWORDS_TOKEN 

MAXIMUM_TOKEN MINIMUM_TOKEN 

MI ROSEC STOKEN MIN TOKEN MS_TOKEN 
MOD TOKEN NOT TOKEN 
DEERSATORSTOKEN OR_TOKEN 

OUTPUT TOKEN 

PERIOD TOKEN 

RESETETONENSR ES PONSE:. TOKEN 
SPECTEITCATION_ TOKEN SEC TOKEN 

Sie ie rOnaN STATES TOKEN STOP_TOKEN 
STREAM_TOKEN 

TIME TORKBENUMIIMERCTOKEN 
Pye re LON TRIGGERED TOKEN 
VERTEX TOREN 

WITHIN_TOKEN 

TEXT TOKEN 

POENTIEDER 

STRING LITERAL 

INTEGER_LITERAL 

REAC LITERAL 


ator precedences 


left AND_TOKEN OR TOKEN XOR, TOKEN LOGICAL OPERATOR 


left 
RELATI 
left 
$left 
left 
left 


'<' '>' '=' GREATER_THAN_OR_EQUAL LESS_THAN_OR_EQUAL INEQUALITY 
ONAL_OPERATOR 

‘+! '-' '&' BINARY, ADDING, OPERATOR 

UNARY ADDING, OPERATOR 

'/* MOD, TOKEN REM TOKEN MULTIPLYING, OPERATOR 

EXP TOKEN ABS TOKEN NOT TOKEN HIGHEST PRECEDENCE OPERATOR 


1 X 1 
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$start start, symbol 
subtype yystype is integer; 


3% 


start_symbol: 

psdl 
psd: 

psdl 

component 

| 
component: 

data_type 

| 

operator 
data_type: 

TYPE TOKEN 

( 

query. st adew-=true, 

) 

IDENDIEIER 

( 

nuli; 

) 

type spec type impl 
type_spec: 

SPECIFICATION_TOKEN optional_generic_param 
optional_type_decl 

op_spec_list functionality END TOKEN 
optional_generic_param: 

GENERIC_TOKEN 

( 

query idis generic :- True; 
gen par : True; 

) 

list of type decl 

| 
optional, type decl: 

list ofctypet decl 

| 


Op _spec liste: 
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epespec. list 
OPERATOR_TOKEN 
TREN Er LER 
{ 
Quo paname (Lec Tengen) :=the_1a token(l..length); 
len_name:=length; 
} 
operator_spec 
{ 
lf query is adt then 
query aux pkg.Put adt op(tmp. op name,len. name, 
has inputs,has outputs,query. adt. op ptr); 
Hascinpues:- False; 
has. outputs:-z False; 
incpar:sFalse; 
out par:-zFalse; 
end if; 


perator: 
OPERATOR_TOKEN 
( 
query _1s. operatoÉ := True; 
) 
IDENTIFIER 
( 
(eh 
) 
operator spec operator impl 
EDerator spec: 
SPECIFICATION TOKEN 


interface 4 
Ponc eionality 
END_TOKEN 
; T. 
interface: 
interface attribute reqmts trace 
| 
Atribute: 


GENERIC_TOKEN 

( 

query is generic :- True; 
gencpar :iewTrue; 

) 

list of type decl 

| 

INPUT TOKEN 

( 
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query has, in param :- True; 


has inputs Sa rue: 
in par := Prue; 
gen_par := False; 


) 

list_of_type_dec1l 

| 

OUTPUT_TOKEN 

( 
query has out parank = Prus; 
has, outputs 2 Tr US, 
in par 3 False; 
Our =) 1 rue; 
gen_par := False; 

} 

list of type decl 

| 

STATES TOKEN 

list of type decl 

INITIALLY, TOKEN 

initial expressriono list 

| 

EXCEPTIONS TOKEN 

olm st 

| 

MAXIMUM_TOKEN EXECUTION_TOKEN TIME_TOKEN time 


list-of type deck 
list of.type decl ',' type-decl 
| 
type. decl 
type decl: 
id list 
C 
if gen_par then 
query aux pkg.Put gen parameter(the id token, 
" *,length,l,query gen"pare-pe E 
end if; 
if in par then 
if out par then 
null: 
else 
query aux pkg.Put in parameter(the id token, 
length,query in, par ptr); 
end if; 
end if; 


if out par then 
query aux pkg.Put out parameter(the id token, 
length,query. out par ptr); 
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i 
| 


pypo name: 


We list: 


Begmts trace: 


Ennctionality: 


keywords: 


end Iir; 

) 

Cype name 

( 

ein par then 
Mmeouce par then 

mui ee 

else 


query_aux_pkg.Put_in_parameter_val(the_id_token, 


end 1f; 
end 1f; 


PProut par tenen 


length,query.i1n par. val ptr); 


query aux pkg.Put out parameter val(the id token, 


end if; 
} 


. 
t 


IDENTIFIER 

t [St 

listor type _ decl 
Poet 

| 

IDENTIFIER 


. 
t 


ideii st 


IDENTIPTER 
| 
EDENTEFIER 


t 


REOFBY TOKEN id- list 
| 


. 
t 


TencgthyodguerwOut par val ptr); 


keywords informal desc formal desc 


KEYWORDS TOKEN 


Sue par 
gen_par 


False; 
False;--in case no in/out parameters 
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infórmal desc: 


formal_desc: 


type impl: 


Orpeimplelrlsur 


Operator impl: 


psdli_impl: 


informal_desc 


DESCRTETION TOKEN TEXT TOKEN 
| 


. 
1 


AATOMS_TOKEN “TEAT_TORKEN 
| 


. 
+ 


IMPLEMENTATION TOKEN ADA TOKEN IDENTIFIER 


( 
queryname.name(l..length):-zthe id token(l..length); 
queryname.len:=length; 

) 

END_TOKEN 


| 
IMPLEMENTATION_TOKEN type_name op_impl_list END_TOKEN 


f 


op_impl_list OPERATOR_TOKEN IDENTIFIER operator_impl 
| 


. 
t 


IMPLEMENTATION TOKEN ADA TOKEN IDENTIFIER 


( 
queryname.name(l..length):-the id token(l..length); 
queryname.len:=length; 

} 

END_TOKEN 

| 

IMPLEMENTATION TOKEN psdl impl END TOKEN 


f 


data_flow_diagram streams timers control_constraints 


. 
t 


data_flow_diagram: 


vertex_list: 


edge_list: 


op id: 


GRAPH TOKEN vertex list edge list 


i 


vertex_list VERTEX_TOKEN op_id optional_time 
| 


. 
f 


edge list EDGE TOKEN IDENTIFIER 
optional time op id ARROW op id 
| 


. 
f 


IDENTIFIER Opt arg 


* 
H 
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opt, arg: 
“Gu -epeional td=list 
weewortronal 1d list™ )* 
| 
Seciconal_id_list: 
2d list 
| 
optional time: 
D tme 


streams: 
DATA TOKEN STREAM TOKEN list of type decl 
| 
timers: 
TIMER TOKEN id list 
| 
@emtrol constraints: 
CONTROL_TOKEN CONSTRAINTS_TOKEN constraints 
constraints: 
constraints OPERATOR_TOKEN IDENTIFIER 
Seren lggel sOpt. period opt finish within 
opt mep opt mrt Constraint_options 
| 
OPERATOR_TOKEN IDENTIFIER 
Gpeecrigger opt period opt.finish within 
cpscmcpecopc mrt 
Eonstraint, options: 
const ramit options "OUTPUT. TOKEN 1d “Tist IF TOKEN 
expression reqmts_trace 
| 
constraint options EXCEPTION TOKEN IDENTIFIER 
opt if predicate reqmts trace 
| 
constraint_options timer_op IDENTIFIER 
opt_if_predicate reqmts_trace 
| 
Soe trigger: 
TRIGGERED_TOKEN trigger opt_if_predicate reqmts_trace 
| 
rigger: 
BY ALL TOKEN id list 
| 
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BY SOME TOKEN id_list 
| 
opt period: 
PERIOD TOKEN time reqmts trace 
| 
opt finish within: 
FINISH TOKEN WITHIN TOKEN time reqmts trace 
| 
Opt mcp: 
MINIMUM_TOKEN CALL_PERIOD_TOKEN time reqmts_trace 
| 
OPE MIE: 
max_resp_time time reqmts_trace 
| 
max_resp_time: 
MAXIMUM_TOKEN RESPONSE_TOKEN TIME_TOKEN 
timer. op: 
RESET TOKEN 
| 
START_TOKEN 
| 
STOP_TOKEN 
opt_if_predicate: 
IF_TOKEN expression 
| 
initial_expression_list: 
initial_expression_list ',' initial_expression 
| 
initial expression 
initial expression: 
TRUE 
| 
FALSE 
| 
INTEGER_LITERAL 
| 
REAL. LITERAL 
| 
STRING_LITERAL 
| 
IDENTIFIER 
| 
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type name '.' IDENTIFIER 

| 

CSS DENT IEEE Elal expression_list ')' 

| 

(C 3niesaldexpnession list ')' 

| 

initial expression log op initial expression prec 
BEogical operator 

| 

initial expression rel op initial expression  $prec 
relational, operator 


-' initial expression $prec unary. adding operator 
| 


'+' initial expression $prec unary adding operator 

| 

initial_expression bin_add_op initial_expression %prec 
multiplying_operator 

| 

initial expression bin mul, op initial expression prec 
multiplying. operator 

| 

initial expression EXP TOKEN initial expression $prec 
highest precedence operator 

| 

NOT_TOKEN initial_expression %prec 
highest_precedence_operator 

| 

ABS TOKEN initial expression  $prec 
highest precedence operator 


. 
H 


ET op: 
AND TOKEN 
| 
OR_TOKEN 
| 
XOR_TOKEN 
me] op: 
IA > ie =" jeGREATERS THAN OR, EQUAL 
| 
LESS_THAN_OR_EQUAL | INEQUALITY 
Bin add op: 
Cg! | fine te | E 
Dine mul op: 
A MODE TOKEN I REM. TOKEN 


time: 
time number MICROSEC. TOKEN 


9] 


| 
time number MS _ TOKEN 
| 
time_number SEC_TOKEN 
| 
time_number MIN_TOKEN 
| 
time number HOURS. TOKEN 
time number: 
INTEGER, LITERAL 
expression list: 
expression list ',' expression 
| 
expression 
expression: 
TRUE | FALSE | INTEGER LITERAL | time | REAL LITERAL 
|L- STRING LITERAL |T TDENTIETER 
| type_name '.' IDENTIFIER 
| type name '.' IDENTIFIER '(' expression list ')' 
| '(' expression_list ')' 
| expression log op expression  $prec logical operator 
| expression rel op expression  £$prec relational operator 
| '-' expression  $prec unary. adding operator 
' expression  $prec unary adding operator 
| expression bin, add op expression prec 
unary adding operator 
| expression bin mul op expression $prec 
multiplying operator 
| expression EXP TOKEN expression  $prec 
highest precedence operator 
| NOT TOKEN expression  £$prec highest precedence operator 
| ABS TOKEN expression  $prec highest precedence operator 


| ‘+ 


. 
f 


with Text_io,query_tokens,query_goto,query_shift_reduce,query_lex, 
query. aux pkg; 

use Text, io,query. tokens,query. goto,query. shift, reduce,query. lex, 
query aux pkg; 

package queryparser is 


procedure Yyparse; 


echo : boolean := false; 
number_of_errors : Natural := 0; 


p» 





in par : Boolean:=False; 


out_par : Boolean:=False; 
gen_par : Boolean:=False; 
has_inputs : Boolean:=False; 
has_outputs : Boolean:=False; 
tmp_op_name Poring 130); 
len_name nteger: =0; 


end queryparser; 


package body queryparser is 


Enocedure" "Yyerror(s : in string :-» "syntax error") is 
begin 
number of errors :- number of errors - 1; 
put (ares gs 
t 


pur-line(s); 
end Yverror; 


##%procedure_parse 





end queryparser; 
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E. COMPONENT AUX PKG 


1. COMPONENT AUX S.A 


== *** File : component aux s.a 
== *** Author : Dogan Ozdemir 
== *** Date : September 1992 


witch Texe Io; 
use Text Io; 


package component, aux pkg is 


X ck ck ck ck ck ok ck ce ce ce ck ck ce coke ce ce ook ck coe ce oce ode ode ode ce A A A A A A oce oe cc oie ce oc coke cic oc oe oe ck ck ok ce coke ok ce ck ce ode oo 


the id. token 0 Strdngil oe 
length : Integer:=1 
has_in_param : Boolean := False; 
has_out_param : Boolean := False; 
is operator : Boolean := False; 
is adt : Boolean := False; 
is generic : Boolean := False; 


~~ Global list constructors 


-- These variables and structures will hold the necessary info 
-- to construct the output file(s) 


type with, name is 
record 


name : String(1..80); 


len : Integer:=0; 


end record; 


type in_parameter_list; 


type in_parameter_ptr 1s access in_parameter_list; 


type in parameter list is 
record 


name :; String (co). 


Tén: : Integer: <0; 


link : in, parameter. ptr; 


end record; 


type out parameter list; 


type out parameter ptr is access out parameter list; 


type out parameter list is 


record 


name : String(1..80); 


len 9 Ingeger:=0- 


link :out_parameter_ptr; 


end record; 
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type in, parameter val, list; 
type in, parameter val ptr is access in parameter val list; 


type in parameter val list is 


record 
name c: Scrrmecl.990); 
len : Integer:=0; 
link : in_parameter_val_ptr; 


end record; 


type out_parameter_val_list; 
type out_parameter_val_ptr is access out_parameter_val_list; 
type out_parameter_val_list is 


record 
name : Sening. :30); 
Ken: Integer:=0; 


link : out parameter val ptr. 
end record; 


type gen_parameter_list; 
type gen_parameter_ptr is access gen_parameter_list; 
type gen_parameter_list is 


record 
param: String (1.9807; 
val nal 8 00 


link : gen_parameter_ptr; 
end record; 


type adt_operator_list; 
type adt_operator_ptr is access adt_operator_list; 
type adt operator list is 


record 
op. name Nesrrimebe. 39) 
has, inputs : Boolean:=False; 
has_outputs : Boolean:=False; 
Spel nepal : ln, parameter ptr; 
op in par val ;, in parameter val ptr; 
ajo le Mie obs ; OUC_parameter ptr; 
op_out_par_val: out_parameter_val_ptr; 
link : adt operator ptr; 


end record; 


withname : with, name; 

par ptr : ln parameter ptr; 

Sue pal Der :oubcparameter- ptr; 

tae par val ptr : in parameter val ptr; 
cute par val ptr  : out parameter-^val ptr; 
gen pal per : Gen parameter ptr; 

adt op. ptr Made operator ptr; 
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procedure 


procedure 


procedure 


procedure 


procedure 


procedure 


procedure 


end component aux. pkg; 


Put in parameter (Data: 


in Strings 


Len : in Integer; 
List: in OUt in parame terapii 


Put_out_parameter (Data: in String; 


Len : 
Eget 


Put in parameter val(Data: 


Len : 
List: 


Put_out_parameter_val (Data: 


Len : 
List: 


Put_gen_parameter (Parm : in 


Val in 
P_Len: in 
V Len- in 
AS Aalst 


Put-adt-opíname: in Strings 
len : in Integer: 


strlen(s: 


Inpustsbout5ut 


ln 
In 
in 
in 
in 


Integer; 
out out parameter ptr); 


Stoic: 
Integer; 
out in parameter val ptr); 


in String; 
in Integer; 
in out out parameter val ptr); 


String 
String: 
Integer; 
Integer; 
out Gen parameter aoe), 


S 


in Boolean; 


List : In out adt operator peri. 


in String; nN: in out Integer] 


24. COMPONENT AUX B.A 


== *** File 


== © Aut ier 


-- *** Date 


component aux b.a 


Dogan Ozdemir 


September 1992 


with Text Io; 


use Text Io; 


package body component aux pkg is 


procedure Put, in parameter (Data: 


begin 


d e e e de de de oe ede de oe e e de oe ode de ode ode de de de de de de ode de de ode e eode de oe oe eoe oe ode ode de oe oe ode eode ode cc dece dece ee e e e oe e eee e KK 


lnauSEtEILO; 


Len : in Integer; 
List: in out in. parameter ptr) is 


if List = null then 
List := new in_parameter_list; 
List.name(1..Len):=Data(1..Len); 


96 





Base len: =- Lern; 
Ersen Llink: <null; 
else 
Put, in parameter(Data,Len,List.link); 
end if; 
end Put in parameter; 


e r m a e m mm m m r m m m m m m m m A e A a xs ume m, m m mm e m GNO ww wwe o m m m m e e 


procedure Put, out parameter(Data: in String; 
Cen : in Integer; 
List: in out out parameter ptr) is 


begin 
D FLSC = UL then 
List :- new out parameter list; 
List.name(1..Len):zData(l..Len); 


List.len:=Len; 
pist. link:=nuüul l; 
else 
Put out parameter(Data,Len,List.link); 
end if; 
end Put out parameter; 


procedure Put in parameter val(Data: in String; 
Len : in Integer; 
List: neut n parameter val ptr) is 


begin 
MEETS = null then 
List := new in_parameter_val_list; 
Pis ernane (1. Len):=Data(1l...Len); 
List.len:=Len; 
Eist Iankse-enulc- 
else 
Put in parameter val(Data,Len,List.link); 
end if; 


end Put in, parameter. val; 


eee m m A M M UL oL LL LL LL Lu A A A A A uL LL ws e e e >.. 1 


procedure Put_out_parameter_val(Data: in String; 
Len wn Integer; 
List: in out out parameter val ptr) is 
begin | 
w LSet = ull then 
List := new out_parameter_val_list; 
List.name(1l..Len) :=Data(1..Len); 
List.len:=Len; 
Lise link:=nuüull; 
else 
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Put out parameter val(Data,bengbrsctualumb 
end 156 
end Put out parameter val; 


— — m m ko m ere pe m m m m pe n mm m m mmr e mr m m m m m m m m mm m pe r be s ge m m m re re e e m m m m m m e GRADO mm m m m me m m e m m m mr me mir ES mom 


procedure Put gen parameter(Parm : in String; 

Val” + ANS 

P Len: in Integer; 

V_Len: in Intego: 

List : in out gen_parameter_ptr) is 
begin 


if List = núll ehen 
List := new gen_parameter_list; 
List.param(1..P_Len):=Parm(1..P_Len); 
List.val(l. V Len):-va E EEEn 
Gist ink: =nu lis 
else 
Put_gen_parameter (Parm,Val,P_Len,V_Len,List.link); 
end if; 
end Put_gen_parameter; 


procedure Put_adt_op ( name: in String; 
len : in Integer; 
inpüts,oütpüts : iN ROOledan, 
List: in out adt_ operator ptr) is 


begin 


lf Liste = nai een 
List -= new adt _ operator list, 
List.op namefl..len):s name(l..len); 
List.háas inputs: =inputs; 
List.has_outputs:=outputs; 
List. cpeine par j= 6 a e 
List.op-in-parcval:s in par val ptr; 
List.op out par:=outlpar Ptr, 
List .Op out par val: =out parmal ptr 
List link: IT] 





else 
Put -adt op(name, Len, inputs,  oùtputs, List. link); 

end if; 
in par ptr:=snull; 
in par- val ptr pees 
out par Dtr: -NUME 
öut par _val_ptr:=null; 

end Put_adt_op; | 
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a e ss e e e e e LG LI I. o e e e e ss e e e y e e m m e m e m m m m m e e LL Ls LLL LLL SL m œ t A t m m m r m m m m m m JiLL2 m 


puccedure strlen(s: in String; n: in out Integer) is 


nteger -= 1; 
char Character TAE T 
endstr:Boolean:=False; 


begin 
while endstr=False loop 
begin 
ehar.=s (1) - 
Slil, 
exception 
when constraint_error => endstr:=True; 
end; 
end loop; 
mu I-l; 
end strlen; 


— — — -— e A e s o e e e e e e e mk m mb mb o e e e e m e e e e e e e e em m m m m m ds m m e e e mb e e m m m e= Ak e m e e m e —-— e e s o o € UM 


end component_aux_pkg; 


29 


F. COMPONENT COMPOSE PKG 


1. COMPONENT COMPOSE S.A 


-- *** File : component compose s.a 
Rue tho : Dogan Ozdemir 
-- *** Date : September 1992 


LX XE RA dcl A A A AA A A AAA A A A AAA AAA AAA A A e e A A AAA A e A cc ccc A A 


with text. io,component, aux pkg; 
use text, 10,component, aux pkg; 


package component, compose pkg is 


inpar pir : in_parameter_ptr; 
outpar_ptr mouti parameter rmp EL 
inparv ptr .: in parameter val ptr; 
oütparv ptr : outiparameter val PEN: 
genpar pEr : gen, parameter ptr; 
adtop ptr : adt_operator ptr, 
opin_par : in_parameter_ptr; 

opin parv : in parameter val ptr; 
opout_ par : Qut parameter T pEr, 
opout_parv : out_parameter_val_ptr; 
outfile : file_type; 

genfile : Elle types 

actual. val =: String) Sin 
gen_found : Boolean:=False; 


procedure non_generic_operator; 
procedure generic, operator; 
procedure non, generic, adt; 
procedure generic, adt; 


end component compose pkg; 


2. COMPONENT COMPOSE B.A 


-- *** File : component compose b.a 
-- *** Author : Dogan Ozdemir 
-- *** Date : September 1992 


-—— Cock ode ok ode ode XY X XY X X X X XY Y XY Y Y X X X X X X X + X + h k+ X kY X + k+ A AAA A A A AA A AA AAA A AA A A AAA A AA A A X X 


with text, io,component, compose pkg; 
use text io,component compose pkg; 


package body component, compose pkg is 


procedure non, generic operator is 
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begin 
create(outfile,mode=>out_file,name=>"outfile"); 
create(genfile,mode=>out_file,name=>"genfile"); 
put (genfile," "e 
put(outfile,"with "); 
put(outfile,withname.name(l..withname.len)); 
Ene (cuttile,”;"”); 
mew line(outfile, 2); 
put (outfile, "package "); 
put (outfile, withname.name(1..(withname.len-3))); 
pn sntfile," pkg is"); 
new line(outfile,2); 
ENE(outfile," procedure "); 
put(outfile,withname.name(l..(withname.len-3))); 


if has. in param then 
pum osutfile," ("); 
mpar pEr: = In parrptr; 
BUDQIMNDUr.- in par_val ptr; 
whee inpar_ ptr /= null Woop 
PUG (COout fi ley, inpar_ptr.name); 
ünparmMDEr:zinpar ptr.link; 
pug cutfFfile," <= in *); 
pec cutfile inparv ptr.name(1l..inparv_ptr.len) ); 
mpar veper- = Inpary ptr.link; 
pa rpe: /= null then 
Putioutriiules":"); 
new bine(outftile);set_col(outfile, 13); 
else 
if has_out_param then 
Eu oue," 
new line(outfile); 
Set rco (our lite, 1.3) 
exit; 
else 
Pue outfile, Sank); 
new line(outfile); 
end if; 
ema if; 
end loop; 
end rf: 


if has out param then 
if has, in param then 
nula: 
else 
puc cutiile, Cy; 
end ii; 
CUDASS: = out par ptr; 
coutpar vsti = ou™Mpar VaW ptr; 
while cùutpar_ptr 7ænull"TOcp 


101 


Put(oüutfile,outpar prre name(l..outpabp9*prroc em 
outpar_ptr:= Cuepasepen sami. 
Put(outfilid * 510: 
Put(outfile,outparv ptr.name(l..outparv9sptr "en 
outparv ptr:soUcpac pEr inks 
if outpar ptr mue 
Put (outils. 
new line(outfile)"set col(oucfile Ww E 
else 
Putloutftije "C 
new line(outfile); 
end if; 
end loop; 
end if, 


new_line(outfile); 
put(outfile," renames "); 
put (outfile,withname.name) ; 
pPuECCuUcE Tle Ae 
put(outfile,withname.name(l..(withname.len-3))); 
putt(toutfile,; wu 
new line(outfile,2); 
put (cutfile;, senda. 
put (outfile,withname.name(1l..(withname.len-3))); 
put(outfile "NERO 
close(outfile); 
end non generic operator; 


procedure generic operator is 


begin 
create(outfile,mode=>out_file,name=>"outfile"); 
create(genfile,mode=>out_file,name=>"genfile"); 
pue (gentil egenertes), 
put (out file, Twi hiaan, 
put(outfile,withname.name(l..withname.len)); 
DUE (CUCL Lene uae 
new line(outfile,2); 
put (outfile, “package "); 
put (outfile,withname.name(l..(withname.len-3))); 
put(outfile, '*pbkges NP 
new line(outfile,2); 


--At this point we need actual values of generic units for 
instantiation. 
--This part of code is commented out for reference. 





--genpar_ptr:=gen_par_ptr; 

-awhile geəenpar Ptr /= nullos 
--put ("Enter actual parameter for generic <"); 
--put (genpar ptr.name(l..genpar ptr.len) ); 
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SA x tome 
--get_line(actual_val, length) ; 
--component_aux_pkg.Put_gen_parameter_val 

(actual, val,length,gen par. val ptr); 

--new line; 

=-genpar._ ptr:=genpar_ptr.link; 

--end loop; 


--now continue with instantiation 


puscocuttile," package tmp_") ; 
put (outftlile,withname .name(1..(withname.len-3))); 
pur(outtile," pkg.is new "); 
put(outfile,withname.name(1..withname.len)); 
pue (outífile," ( *); 
EEnpar ptr:-gen par ptr; 
daile genpar ptr /- null loop 
Put(outfile,genpar ptr.val); 
MA enpar PEr. link (= null then 
Pue(outfile,”, “); 
end 1f; 
Eenpareotr:sgenpar ptr.link; 
end Loop; 
puewouttile," );"); 
new line(outfile,2); 


EILOWwW Iencdame 


Pucwouttile,” procedure "); 
put (outfile,withname.name(1..(withname.len-3))); 


1f has_in_param then 

puc onile," (0); 

ERnEAPSptr:z in par ptr; 

mpar Der Ino par val ptr; 

while inpar.ptr /= null loop 
Pu rote ta bassinoareptr.namel laesutipar pte. Lene; 
Pusiout tilo ms in 20: 
Prose = Liar Dlr. ink: 


dempar ptr:=qen_par_ptr; 
while genpar_ptr /= null loop 
if inparv_ptr.name = genpar_ptr.param then 
Put (outfile,genpar_ptr.val); 
gen ola: =Tre; 
exit; 
end a. 
Genpaceper > =qenpareptr. link; 
end loop; 
if gen_found=False then 
Puto lominpary perename (1. .Inparv_ptr Len) ); 
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end if; 
gen, found:zFalse; 


inpatv_ ptr: MIDA v OMT 
if inpar pEr T — mu tae 
Put (cutre 7 
new line(outfile); 
set colfcuttile, 131% 
else 
1f has_out_param then 
Put (cuetile tdo 
new_line(outfile); 
set col(outfile, I3); 


exit; 
else 
Poe our file, mi "y 
new line(outfile); 
end if; 
end if; 
end Toop; 
end if; 


if has out, param then 
if has, in param then 
nut. 
else 
put (oul fide 0). 
end if; 
outpar ptr :=T ouerpaar iper; 
outparv ptr:= out par valmptr), 
while outpar ptr /-2 null loop 
Put (cutfile,outpar ptr.name(l..oüutpar"prr^ ren M 
oütcpar Sultpa rr pe link, 
Put oUutrle ou "J>; 


qenpbar. ptr: =genpereptr; 
while genpar_ptr /= null loop 
1f outparv_ptr.name = genpar_ptr.param then 

Put (outfile,genpar_ptr.val); 

den found: =True; 

exit; 

end if; 
genpatr ptr==genpar ptr link; 
end loop; 
if gen foundzFalse then 
Put (out file, cutparv=ptr-name(l. .cutparv per een mae, 

end if; 
gen found:zFalse; 


outparv"ptbosoutparvsper link. 
if outparcper"/s null chen 
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popscoutf1ile,";"). 
new line(outfile); 
sed C OoOlloutfile, 13); 
else 
Pamouttile, " y*y- 
new line(outfile); 
end if; 
end loop; 
ena if; 


new line(outfile); 


put(outfile," renames tmp "); 

put (outfile,withname.name(1..(withname.len-3))); 
Emer outfile, “_pkg.”); 

put (outfile,withname.name(1..(withname.len-3))); 
ene outfile,";"); 


new_line(outfile,2); 
Pure (Outfile,"end "); 
put(outfile,withname.name(l..(withname.1len-3))); 
Bee outfile," pkg;"); 
el@se(outfile); 

end generic_operator; 


procedure non_generic_adt is 


begin 
create (outfile,mode=>out_file,name=>"outfile"); 
create(genfile,mode=>out_file,name=>"genfile") ; 
put (genfile," B; 
Bee outfile, “with "); 
put (outfile,withname.name(l..withname.len)); 
pee (outfile,";"); 
mew line(outfile,2); 
put (outfile, "package "); 
put(outfile,withname.name(l..(withname.len-3))); 
put (outiña le, "apkgwws* >); 
new line(outfile,2); 


Sd Op pEr- =aáadt op ptr; 

while atop ptwew/-»null loop 
pus cusrIlle "'" procedure "); 
Put (outfile,adtop. ptr.op. name); 


if adtop ptr.has inputs then 
pENOutfile," (*); 
Serna > =adtop ptr .Op..in_par ; 
Splnepary i=acdtop ptr.op_in_par_val; 
ahale topin par /= null loop 
put (outfile, opin_par.name) ; 
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opin par: -cP parank. 

PU (OU Giles T 

--generic par check is to go here 

put (outfile,opin_parv.name) ; 

opin pary: -opin parv: Link, 

if opin mare = NUl then 
Publiouttile, "ww 
new line(outfile); 
set col(outfile,123); 


else 

if adtop ptr.has outputs then 
Put (out tile; aes 
new line(outfile); 
set_col(outrile ne 

exit, 

else 
Pütkoutfile 00) 
new_line(outfile); 

encia: 

end if; 
end loop; 
end LE; 


if adtop_ptr.has_outputs then 
if adtop ptr.has inputs then 
nude 
else 
PUE (CUTE mice" (2) 
end if: 
opout_par: =adte@epepcr sopmout par; 
opout pDabpw-cadEepEEPtr opSoNPSE I 
while opout-par /= nude loce 
Put (outfile, opout_par.name) ; 
Opout_par :=Opoutepar- limi, 
Putuouttplle cute 
put(outfile,opout parv.name); 
opout parvizopouuMparv link; 
lif opout- par -enudsdtbem 
Put (omemile, 3"): 
new line(outfile); 
set col(outtile,195- 


else 
Put(outfile "Mur 
new line(outfile); 
end if; 
end loop; 
end if; 
new line(outfile); 
put(outfile," renames "); 


( 
put(outfile,withname.name); 
put(touttilep* 5 
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pue teuerxte, adtop_ptr.op_name); 
putitousbrle,"."): 
new line(outfile,2); 
D2EocpeECPC-adtop pEspOlink; 

end loop; 


put(outfile,"end "); 

put (outfile,withname.name(1..(withname.len-3))); 
pele (outfile, “_pkg;"); 

elose(outfile) ; 


end non_generic_adt; 


procedure generic adt is 


begin 
create(outfile,mode-z»out. file,name-»"outfile"); 
create(genfile,mode=>out_file,name=>"genfile"); 
muti gentile, “generic") ; 
put(outfile,"with "); 
put (outfile,withname.name(1..withname.len)); 
put(outtile,";"); 
new line(outfile,2); 
put (outfile, "package "); 
put (outfile, withname.name(1..(withname.len-3))); 
puoutrile,"-pkg is"); 
new line(outfile,2); 


puwcutftrle);* package tmp "J; 
put (outfile, withname.name(1l..(withname.len-3))); 
put cutfihes" bkg is new "); 
put (outfile,withname.name(1..withname.len)); 
pustonuttfile " (5; 
genpar ptr:=gen par_ptr; 
while genpar ptr /-2 null loop 
Put(outfile,genpar ptr.val); 
DEagenpbpar pEbink /s null then 
Poe Outcti Na", t4. 


end LE; 

genpar ptr:-genpar ptr.link; 
end loop; 
EE ouo ys 


new line(outfile,2); 
--now rename 
adtop Ptr: -adt op ptr; 


ute adcopeetes /= null loop 
putlouttlile," prodedurew) 7 
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Put(outfile, adtop ptr.:op namel, 


if adtop _ ptr has inputs then 
put(outrtile ua 
Opin par -=acE opr ors op |i PE 
opin parv: -adtop pEr. OD InN pal val. 
whi lie Opin par /= null loop 
put (outfile,opin_par.name); 
opin-par:-opsnspar link; 
PUE (CUEEI Vere: eine); 
~-generic par check is to go here for generic proc 
genpar ptr.-gen-par*pcr. 
while genpar. ptr /- null loop 
if opin_parv.name=genpar_ptr.param then 
Put(outfile,genpar ptrovalr 
gen- found: =True; 
exit: 
end If; 
genpar_ ptr :=genpar Ptr eink, 
end loop; 
if gen found-zFalse then 
put(outfile,opin, parv.name); 
end if; 
gen-found:sEalse: 


opin Pary: -Opin parv. ine 
1£ opin_par /= n Enen 
Pvt (Owen ber) 
new line(outfile); 
set colouttile je 
else 
lf adtop ptr.has-eutputs then 
Put (outtile e 
new_line(outfile); 
set col (outfile, 13); 
exit; 
else 
Put (outfile e); 
new line(outfile); 
end if; 
end if; 
end loop; 
end if; 


if adtop_ptr.has_outputs then 
if adtop_ptr.has_inputs then 
nall, 
else 
Bue (outed lors 4). 
end if; 
OpCue spar: =adtop_ ptr -op "cut spa 
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Spot rae: =adtop ptr.opout_par val; 
while opout_par /= null loop 
Put (out file, opout_par.name) ; 
opeut par :=Opeut par .link; 
pup utf2Nlel = out €) 
--generic par check 
denpa ae denia pEr: 
while genpar ptr /- null loop 
if opout_parv.name=genpar_ptr.param then 
pum outrile genpariptr.val):; 
sgen-rteund:sTrue; 
exit; 
end if; 
genpar ptr:=genpar_ptr.link; 
end loop, 
if gen_found=False then 
put(outfile,opout parv.name); 
end if; 
gen found:-zFalse; 


obpout-cparv:-opoUE parv PINK; 

U Topout par SAn Ehen 
PautoutfiNg ";")- 
new line(outfile); 
sele. col(cuttile, 13); 


else 
Pubieueecrle,* 3%); 
new line(outfile); 
end if; 
Encoeoop:; 
endif; 


new_line(outfile); 
Pur wouvrite, = renames tmp_"); 
put(outfile,withname.name(1..(withname.len-3))); 
pnmecosUtfile "-pkg-"); 
putitouttile,jadtop-ptr.op name); 
IE Ie Sme; 
new line(outfile,2); 
HNCODSDtr:-adtop-ptr.link; 

end loop; 


pubtvoutftale Mena “)- 

put (outfile,withname.name(l..(withname.len-3))); 
pur ccUgcttrle,"' pkg;"); 

close(outfile); 


end generic adt; 


end component compose pkg; 
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G. COMPONENT PARSE.A 


ec OX ES : component parse.a 
=-= *** ANDES : Dogan Ozdemir 
-- *** Date : September 1992 


* e e ck ck de ck ce ce ne ce de de ck ck ce ce de ck e ck e ook ck ck ck ck ode ce ce ce de e ck ck ce ck ce ce Ok e ck ck ce e Oe ck ce de e ce ck Je c OE oce h 


with u env,component parser,psdl lex io, psdl lex,text io, 
component aux, pkg,component compose pkg; 

use u env,component parser,text 1o,component aux, pkg, 
component compose pkg; 


procedure parse is 


last :integerps-o0s 
begin 
if u.env.Argc = 2 then 


strlen(Argv(1).S, last); 
psdl. lex io-open-xnpug(Arg dM MS T bast 
psdl lex io.create output; 


yyparse; 


psdl lex io.close input; 
psdl lex io.close output; 


if is generic and is, operator then 
component compose pkg.generic operator; 
elsif is generic-False and is operator then 
component compose pkg.non generic operator; 
elsif is generic and is adt then 
generic adt; 
elsif is generic-False and is adt then 
non, generic adt; 
end if; 


else 
put line("Wrong number of arguments"); 


end if; 


end parse; 
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H. QUERY AUX PKG 


1. QUERY AUX S.A 


MEAR * File : query_aux_ s.a 
ENS = Author : Dogan Ozdemir 
-- *** Date : September 1992 


ck ck se ode ck ck oce ook ck ck ke ck ck ck ck ck ce ck ck de o oe ck de e ck ck de ok ook ck oe ck ck oc ce ck ck ck ck ck ck ck ck ck ck ck oe ck oe ce oe ok ck ck ck + + + + + + + + + + + 


Eth Text Io; 
use Text Io; 


package query aux pkg is 


Ehe id token | Serqyng(ol 3055 

length s Integer:=21; 
query_has_in_param : Boolean := False; 
query_has_out_param : Boolean := False; 
query_is_operator : Boolean := False; 
query_is_adt : Boolean := False; 
query_is_generic : Boolean := False; 


-- Global list constructors 
-- These variables and structures will hold the necessary info 
ELMO construct the output file(ís) 


type query name is 


record 
name : String(1..80); 
en —: Integer:z0; 


end record; 


type query. in parameter, list; 
type query in parameter ptr is access 

query in, parameter list; 
type query in, parameter, list is 


record 
name :"String(l..80); 
len : Integer:=0; 


link : query in parameter ptr; 
end record; 


type query out parameter list; 
type query out, parameter, ptr is access 
query out, parameter list; 
type query. out parameter list is 
record 
name : String(l..80); 


I 


lene Integer 0 
link : query out parameter riper: 
end record; 


type query. in, parameter, val list; 
type query in. parameter val ptr is access 

query in paBaneser val lists 
type query in parameter val list is 


record 
name = String Son 
len  ; Integer--05 


link : query in parameter val ptr; 
end record; 


type query out. parameter val list; 
type query out parameter val ptr is access 

query out parameter val list; 
type query out parameter val list is 


record 
name : String(l..80); 
len : Integer:=0; 


link : query-out-paramecters ptr; 
end record; 


type query_gen_parameter_list; 

type query_gen_parameter_ptr is access 
query_gen_parameter_list; 

type query_gen_parameter_list is 


record 
param: Setring(1. 20% 
val: Strong JS 


link : query. gen, parameter. ptr; 
end- record; 


type query_adt_operator_list; 

type query_adt_operator_ptr is access 
query_adt_operator_list; 

type query adt operator list is 


record 
Op. name : .Serang(1: 800 
has, inputs : Boolean:zFalse; 
has outputs : Boolean:zFalse; 
op_in_par : query_in_parameter_ptr; 
op in, par val : query in, parameter val. ptr; 
op-out phar 7 Query sout parameter per; 
op_out_par_val: query_out_parameter_val_ptr; 
link : query adt operator, ptr; 


end record; 
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queryname : query name; 


emery in par ptr : query in parameter ptr; 
query. out, par ptr : query out parameter, ptr; 
Eusry in par val, ptr : query in, parameter val ptr; 
Euerv out par val ptr : query out parameter val ptr; 
BUery gen, par, ptr Emery ¿gen parameter. ptr: 
amery adt op ptr : query adt operator ptr; 


ENocedure Put in parameter(Data: in String; 
Len : in Integer; 
List: in out query in parameter ptr); 


Enccedure Put out parameter(Data: in String; 
Len : in Integer; 
bist: in out guery Out parameter ptr) ; 


procedure Put_in_parameter_val (Data: in String; 
Len : in Integer; 
List: in out query_in_parameter_val_ptr); 


procedure Put out parameter val(Data: in String; 
Len : in Integer; 
Erse min out query OUG parameter váal_ptr); 


procedure Put, gen parameter(Parm: in String; 
Val Ain String; 
P_Len: in Integer; 
V_Len: in Integer; 
List: in out query. gen, parameter. ptr); 


procedure Put adt op(í(name: in String; 
Len Nn Integer; 
inputs,oubputs : in Boolean; 
Prise. noue query adt_ operator per) ; 


Meseccure strlen(s: in String; nm: in out Integer); 


end query_aux_pkg; 
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2. QUERY AUX B.A 


us cT : query aux b.a 
== *** Author : Dogan Ozdemir 
-- *** Date : September 1992 


e e oe ck oe oce ce ck ck ce ce ce ce cde oe e coke de ode ce oce oe cfe coke de coke e ce ce A A e e ce e ce e ce coke ce coke oe ck ode ce de ce e cock ce ck ce ode ce ck ce ce oe ce ce de ck oe ck e oe oe 


with Textile: 
use Text Io; 


package body query aux pkg is 


procedure Put in parameter (Data: in String; 
Len : in Integer; 
List: in out query in parameter ptr) is 


begin 
if List = null chen 
List :-z new query in parameter list; 
List.name(l..khSm)s-bpato Wem 
List.len:=Len; 
List. lin*:= null 
else 
Put in. parameter(Data,Len,List.link); 
end if; 
end Put in, parameter; 


procedure Put out parameter(Data: in String; 
Len : in Integer, 
List: in out query out parameter ptr) ie 


begin 
LEP ost null then 
List := new query_out_parameter_list; 
List.name(1l..Len):zData(1l..Len); 
Listiden:=Len; 
Istum nes 
else 
Put out, parameter(Data,Len,List.link); 
énd if; 
end Put_out_parameter; 


Te m e e e m m á- á- á- á á- á- á á- á á m m m r mp k m m r mr m P r p e s p m p p p m eee eee eee eae k ees ee ee m 


procedure Put, in parameter val(Data: in String; 
Len : in Integer; 
List: in out query in parameter val ptr) is 


begin 
if List = null then 
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List :- new query in parameter val list; 
mest name (il..Len):=Data(i..Len); 
List.len:=Len; 
igest . link:=null; 
else 
Put in, parameter val(Data,Len,List.link); 
End if; 
end Put in, parameter, val; 


cee meee ee ww ww ww www www wee ee ew ms m n ee i i ee 


procedure Put_out_parameter_val(Data: in String; 
Len : in Integer; 
Liste one query out parameter _val*btr) is 
begin 
A List = null then 
List :- new query out parameter val list; 
Mee name(l..Len) :=Data(l..Len); 
inst len:=Len; 
Prctr link: =nwl ll: 
else 
Put OUL parameter val(Data, Len, List .link) ; 
end 1f; 
end Put out, parameter, val; 


procedure Put, gen, parameter(Parm : in String; 
ad 3: an (Strong; 
PB beans in Integer; 
vaen: in Integer; 
List : in out query gen parameter ptr) is 
begin 
BEIOEISt = null then 
List := new query_gen_parameter_list; 
List.param(1..P Len):zParm(1..P Len); 
IN ccevealdvUsnen):sVag(1l1..V Len); 
Estesnk-null; 
else 
Put gen parameter(Parm,Val,P Len,V Len,List.link); 
end if; 
end Put gen parameter; 


— mee me ee ee ee ee ee ei ee 


procedure Put_adt_op(name: in String; 
len : in Integer; 
inputs,outputs : in Boolean; 
List : in out query_adt_operator_ptr) is 
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begin 
if List mmi them 
List :- new query. adt operator list; 
List.op name(l..len):- name(1l..len); 
List.has inputs: s)HDUts- 
List .has2outpucs -—eueeurs. 
List.op_ in par = dguery In palipo 
List.op_in_par_val:= query_in_par_val pan 
List.op out pár :=quüery out par pEr, 
L1st .op out par: val: =querYy out par Valore 
List. line null 
else 
Put_adt_op(name, len, inputs, outputs, List.link) ; 
end 1f; 
query in par ptr -mulk 
query _1n_ par val prtrs=nulde 
query _OUE-pariper:= aun 
queryeeut parsvals9ptr:-nusdm 
end Put adtNob- 


procedure’ strlen( Ss in SE ring: i Fin OUeC eger r aS 


I : Integer sr 
char: Character == Xu 
endstr:Boolean:=False; 


begin 
while endstr=False loop 
begin 
echar :=s (II 
Mii 
exception 
when constraint-error => endstr:=True; 
end; 
end loop; 1 
Rie. 
end strlen; 


end query_aux_pkg; 
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A ee re 


I. QUERY COMPOSE PKG 


1. QUERY COMPOSE S.A 


me *** File query_compose_s.a 
E k+ Author Dogan Ozdemir 
-- *** Date September 1992 


X ck ck ce ck ce ck ck cie cic ode ode AA cie cie oie ode ode oe ode oce oe oe oce oce oe ode oce ode oe cie oie coke cie ode ode cde ode cie ode oe oe oe oic oe oe oe oe oe ode coke oe oe coke oie oe oe ode oe oie oc ok oe oe Oc eoo ox 


Eth text io,query aux, pkg,component aux pkg; 
use text lo,query aux pkg, component, aux pkg; 


package query compose pkg is 


Düpar ptr query. in parameter ptr; 
gENEDar ptr Wel) oüt Parameter ptr; 
Enparv ptr query in parameter val ptr; 
outparv. ptr query out, parameter val. ptr; 
Senpar_ptr Gen parameter Der, 

adtop_ptr query, adt, operator ptr; 
mEadtop ptr adbcsoperator ptr; 

opin par query in, parameter ptr; 
opin, parv query in parameter val. ptr; 
ppout par query out parameter ptr; 
opout parv query. out, parameter val, ptr; 
euttile file_type; 

genfile file type; 

actual. val string 1T 80); 


gen_found 


procedure 
procedure 
procedure 
procedure 


Boolean:=False; 


non_generic_operator; 
generic_operator; 
non_generic_adt; 
generic adt; 


end query compose pkg; 


2. QUERY COMPOSE B.A 


E- *«** File query compose b.a 
+ Author Dogan Ozdemir 
-- *** Date September 1992 


KEK KK KKK KEKE KEKE KEKE KEKE KKK KKK KKK KKK KK KKK KKK KKK e oce cde ode ce cde cde cfe kK X X X X X X X X X XY X X X X X X AA 


EUth text i1o,query compose. pkg; 
use text lo,query compose pkg; 


package body query compose pkg is 


procedure non, generic operator is 
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begin 
create(outfile,modez-out file,name--"ocUt PRESS 
create(genfile,modez»out file,name-»"genfile"); 
put(genfile," E 
put (out idler waren 2s, 
put (outfile,withname.name(l..withname.len)); 
put(outfg le e 
new line(outfile,2); 
put(outfile,"package "); 
put(outfile,queryname.name(l..queryname.len)); 
put (out Tle okas > 
new line(outf2les2 = 
put(outifaidle," procedure man 
put(outfile,queryname.name(l..queryname.len)); 


if query has, in param then 
putí(outt2la eae 
inpar ptr:= query 1h Parte. 
inparv ptr:- query lin9*pdr9Sval9ptre 
while Iinpar-ptr /- nut 9Foop 
Put (outfile,inpar. ptr.name); 
inpar ptr:<inpar per.: Ink: 
Putiouttile, I 
Put (outfile,inparv ptr.name(l..inparv ptr.len) 
lnparv*ptr:- inparpvspep INE. 
TES na Peper s/n CS 
Put(outctile st.) 
new line(outfile); set, col(outfile,123); 


else 
if query has. out param then 
PUE outlet) 
new_line(outfile); set_col(outfile, 13); 
exit; 
else 
Put(outtlilo,; un e 
new line(outfile); 
end if; 
end if; 
end loop; 
cn sie y 


if query has, out param then 
if query has, in param then 
pru 
else 
puc (out fire ma oi; 
end if; 
outpar ptr: query out par DET, 
outparv_ptr:= query _ocut_par val pt 
while outpar  ptrs/ = nulleloor 
Put (out file, outpar_ptr.name(l1..outpar_ptrelen) 
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sr 


) 3 


GULPar Dtr:-5o8sparc»tr link; 
Bpur(outfi1le,'" "out "j; 
Emtocuttrle outparv-ptr.name(l..outpawev9ptr.len)): 
gunsparvVcpLtrosomspdrveotE ym 
eMe par ptr” y = null then 
pae outfile,";/"]); 
new line(outfile);set col(outfile,13); 


else 
pButeouetrila." J1); 
new line(outfile); 
end if; 
End loop; 
excve E: 


new line(outfile); 
put(outfile," renames "); 
put (outfile,withname.name) ; 
Puce ouctive, ™ .." ); 
put (outfile,withname.name(1..(withname.len-3))); 
mite (Out Tr Wiens” >") > 
new_line(outfile,2); 
pec(outfile,"end “); 
put (out file, quaeryname.name(l..queryname.len) ); 
Puc (outrile; “pkg: 
close(outfile) ; 
end non generic, operator; 


procedure generic operator is 


begin 
create (outfile,mode=>out_file,name=>"outfile"); 
create(genfile,mode=>out_file,name=>"genfile"); 
putugentile.'"generic?)- 
purot ile witha]; 
put (outfile,withname.name(1..withname.len)); 
put cubfqTle,";')s 
new line(outfile,2); 
put (outiílile, "package *); 
put (outfile,queryname.name (1. .queryname.len)); 
put (out fle," pk is"); 
new_line(outfile,2); 


--At this point we need actual values of generic units for 
instantiation. 


< HOW continue with instantiation 
put (owerile “package tmp"); 


put (outfile, queryname.name(l..queryname.len)); 
put(outfile,"_pkg is new "); 


119 


put(outfile,withname.name(l..withname.len)); 
put(outtile E 
GenPableer : =Cen bar cer, 
while genpar sptr /= null leop 

Put (outfile,genpar_ptr.val); 

lf genpar ptr slink. /=snull cien 

PUE (Sue lom 

end if; 

qenpar ptr: =Genpar ptr. link; 
end sloop, 
puttouttile lE E 
new line(outfile,2); 


== now Bename 


put(outfile;" procedure "); 
put(outfile,queryname.name(l..queryname.len)); 


if query has, in param then 
PUE(OUCL len, e 
inpar- ptr:= guery In Par Prr: 
inparv ptr:= query Inipar va pEr: 
while inpar per /= nulls locs 
Put (outfile, inpar ptr.name(1..inpar ptr. len) 
Put(outTrrTle S mE 
inpar ptr:=linpar PEr rins 


genpar Per -Jeni Par per, 
while genpar ptr /= null loop 
if inparv ptr.name - genpar ptr.param then 
Put (outfile,genpar_ptr.val); 
qen founa:=Trueée; 


exit; 
Sud. 
genpar ptr:sgenparsptr DIRK 
end loop; 


if gen_found=False then 

Put (outfile, inparv_ptr.name(1..inparv_ per. lene) ; 
end E 
gen, found:zFalse; 


inparVepDer-=—ittamveper. link, 
lt9wmpar ptr; onuMethen 
Put (out faie: e; 
new line(outfile); 
set col(outfile,13); 
else 
lif query has. out param then 
Puc(outfile "C 
new line(outfile); 
set col(outfile,13); 
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exit; 


else 
punedcoussle,n)«*): 
new line(outfile); 
end E: 
end if; 
end loop; 


End if; 


if query has, out param then 
if query has in param then 
Dur 
else 
Sue (cuertles- (0). 
end if; 
cüutpar ptEr:= query out _ par ptr; 
óütpartiptr:= que outs par val ptr; 
gaile outpar ptr /= null loop 
]EuENouthiles2outparmNper.name(l..outpar*ptr.len) )5$ 
ogbpabeptr-s' outpabneApur.liuk; 
Put(outfile," :weut d; 


genparsprr:-gem parsper; 
While gdenpbarmbptH nud loop 
if outparv ptr.name - genpar ptr.param then 
Put(outfile,genpar ptr.val); 
gen found:zTrue; 
exit: 
end if; 
genpar ptr:zgenpar ptr.link; 
end loop; 
if gen found-False then 
Puewouerile,outparv ptr.name(l..outparv ptr.len) ); 
enda if; 
gen-tound:sFalse; 


Sutparvoptr:-ousperv per.link; 
Le Outpammptr /= null then 
pat(outtilowe ww. 
new line(outfile); 
Semwcol(outfile,13); 
else 
Pu@(outfile," )“); 
new line(outfile); 
end if; 
ena loop; 
end 16% 


newMkne(out£ile); 


put(outfile," renames tmp "); 
put(outfile,queryname.name(l..queryname.len)); 


NAI 


put (QUE ET TORS mec ae 


put (outfile,withname.name(1l. 


put (out file ae: 
new line(outfile,2); 
puttouttile "cuc E 


put (outfile, queryname.name(1l..queryname.len)); 


put (OUELI Te pO ; 
close(outfile); 
end generic_operator; 


— ewww ww wee ee ws we m m m A A m a- e a a ee ee e u o- Á n a 


procedure non, generic adt is 


begin 


create(outfile,mode=>out_file,name=>"outfile"); 
create(genfile,mode=>out_file,name=>"genfile"); 


put (genfile," T 
Put (OUEEI lew witha) 


put (outfile,withname.name (1 


puttoub5rileo o EC 
new line(outfile;2)5 
put(outfile,"package "); 


Ñ 
GI 
( 


outfile,queryname.name(l..queryname.len)); 


put (outils 
new_line(outfile,2); 


adtop- ptr:=query a CEOD PEE, 

Y_adtop Per eMac E 

while adtop_ ptr 7= null Ace» 
put(outfile," procedure i; 
Put(outfile,adtop ptr.op name); 


Qe 


adtop ptr.has inputs then 
put (outtfile "MNA 
opin par :=adtoóp PEN OL In par; 


opin _Parv:=adtop_ptr.op_in. par vale 


while opin _par /= null Weep 

put (outfile,opin_par.name) ; 

opin.par:sopin?par.link; 

Put (Out iile, = naino 

put (outfile,opin_parv.name) ; 

TEE parv:zópin Parv- link; 

il opin par /= null chen 
Pueloutfile, = n1 
new_line(outfile); 
set_cól(outfile 13); 

else 

if adtop_ptr.has_outputs then 

Put (outfile," "Nm 
new line(outfile); 
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. (withname.len-3))); 


. Withname.len)); 


set col(outfile,13); 


exit; 
else 
EuEOutr1le ©): 
new _lametoeut file) ; 
end if; 
end if; 
end loop; 


end if; 


adtop PEr. has outputs then 
if adtop ptr.has_ IMpbut st hen 
nuri 
else 
PUE (our rie set) 
end if; 
ppoutcpar:zadtepsSptr.op out..pes-e; 
opout*parvssadbtepWstr.op-out par val; 
while opout par /=Mmull loop 

Put (cut file, opout par.name) ; 

opPout par: -opot par. Llink; 

BME NOU em. cout "Js 

put (outfile, opout_parv.name) ; 

pout parvy:=Cpeut parry. link; 

T Ee Ont per 7— onli tien 
pBactouttrlle 5.) 
new line(outfile); 
set_col(outfile, 13); 


else 
Pie (Outi 1 be." je") 
new line(outfile); 
end if; 
end loop; 
end if; 
new_line(outfile); 
put(outfile," renames "); 
put (outfile,withname.name); 
put(outrtilew "):; 


puttouERslessEadbEob"ptr.op-name)s 
putt outlet 
new line(outfile,2); 
r-adtop-ptr:-r adtop ptuwwiunk; 
acto» peros adtop ptr. link, 

end loop; 


mecuti rem endt]; 
put (outfile, queryname.name(1..queryname.len) ); 
pütuemEtile,"5kg;"J5 
close(outf1ile); 
end non, generic adt; 


e www ew ww wee we ww wwe we ewe we we e e e e e e e e e e e a m m — s 


procedure generic adt is 


begin 
create(outfile,mode-z»out. file,namez»"outfile"); 
create(genfile,mode=>out_file,name=>"genfile"); 
put(gentile gener Teui 
pùt (outfile uma”) 
put (outfile,withname.name(1..withname.len)); 
pue (out Lera 
new_line(outfile,2); 
put (outfile, "package "); 
put (outfile,queryname.name(1..queryname.len)); 
put(outfile mEkgrs'). 
new line(outfile,2); 


Dut (out filer _ package tmp_'"]); 
put (out file, queryname.name(1l..queryname.len) ); 
DUE (OUCEI Me“ pkg "Sine. oe 
put(outfile,withname.name(l..withname.len)); 
put(tout£ile"' x 
genpar .ptr:zgen par ptr; 
while genpar ptr /- null loop 

Put (outfile,genpar_ptr.val); 

if genpar_ ptr. l1ak /= null then 

Put (outta ", "7; 

end 1f; 

genpar_ptrv=genpar_ pte, eink, 
end loop; 
put (ouc: Ney A 
new_line(outfile); 


--now rename 


adtop_ptr:=query adt Top Per, 

Y¥_ adtopsper- = act sooner. 

while adtop ptr = null loep 
put (out tile "A roccdurcmus 
Put (outfile,adtop ptr.op name); 


1f adtop ptr.has inputs then 

put (outfilg =i"); 

opin “par: =adtop ptr:op in par; 

opin _parv:-adtop pir. opein par valle 

while opin par /= null loop 
put (outfile,opin par.name); 
Opln_par:=eCpin par. MAK; 
Put (outfile S ND 
--generic par check is to go here for generic proc 
qgqenpar_ptr:=geń pat ptr.: 
while genpar_ptr /= null loop 

if opin parv.namezgenpar ptr.param then 
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PUG QUE Ed le, denparsptr.val) > 
gen tound:-True: 
exit; 
end if; 
genpsreptr:-zgenpar- ptr.link; 
end loop; 
if gen found-zFalse then 
put (outfile,opin parv.name); 
end Ic; 
gen_found:=False; 


oOpIneparv:sopin-parv-link; 

il Sopin par- /= nüllethén 
Pub (oum NE "E 
new line(outfile); 
set, col (outfilie, 13): 


else 
1f adtop ptr.has outputs then 
Put (outfile, %1); 
new_line(outfile); 
set_col(outfile; 13); 
exlt; 
else 
Pit toute bid T 
new_line(outfile); 
end if; 
end if; 
end loop; 
end if; 


if adtop_ptr.has_outputs then 
Zrdtopwptr-hassrnputs then 
nuli, 
else 
put comte Ww O ; 
end if; 
opo Ut Spar adtop PEr: Oop out par; 
oP oUt pAar y: adtop_ptr:-op ouút_par_val; 
Waele ocpoutspar /- null loop 
Put (outfile,opout par.name); 
opoutEmucopout par.link; 
PROL: out 1); 
--generic par check 
genpareptr:sgen par. ptr; 
while genpar ptr /- null loop 
if opout_parv.name=genpar_ptr.param then 
Put (outfile,genpar ptr.val); 
den found:=True; 
axit: 
misit: 
genpar_ptr :=genpar_ptr.link; 
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end loop; 
if gen found-zFalse then 
put(outfile,opout parv.name); 
end if; 
gen found:zFalse; 


opout"parv:sopout parv aink 

1f opout par /wmublbbeos 
Put(outrile, "ni" 
new line(outfile); 
set col(out£rile 1397 


else 
Put (out aileri u 
new line(outfile); 
end if; 
end loop; 
enden 
new lineli(outfile); 


put(outfile," renames tmp "); 
put(outfile,queryname.name(l..queryname.len)); 
put (cutta le, BRO, 
put(outfile,r, adtop ptr.op name); 

put (outfile r PI; 

new line(outfile,2); 

adtop ptr :-adtop per: ink: 

r adtop ptr:=r_adtop Per EE 
end loop; 


pue out le, ends” 

put (outfile, queryname.name(1..queryname.len)); 
¡o NI cu RA 

close(outfile); 


end generic_adt; 


end query_compose_pkg; 
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QUERY PARSE.A 


*** File : query parse.a 
H^ xmthor : Dogan Ozdemir 
p" pate : September 1992 


+ + X +K ++ kX X X X X X X X X + X X X X X X X X X X X X h+ X X X X X X X X X X X X X X X X X X X X X X X X X X X X X+ X X X X X + + + 


with u env,queryparser,query. lex io,query lex,text io, 


query aux, pkg,query. compose pkg; 


with component, parser,psdl. lex io,psdl lex, 


component, aux pkg; 


use u env,queryparser,text io,query aux pkg, 


query. compose pkg; 


use component parser,component, aux pkg; 


procedure main is 


lastťtl, last2 :integer:=0; 


begin 


MESUESnv.Argc = 3 then 


eomponent aux pkg.strlen(Argv(1).S,lastl); 
component aux pkg.strlen(Argv(2).S,last2); 
Necro. open input(Argv(1).S(l..lasti)); 
psdl lex io.create output; 


--starting parse retrived psdl (Argv(1)) 


component parser.yyparse; 

psdl lex io.close input; 

|psdlclexsxo.close output; 

query lex io.open input(Argv(2).S(l..last2)); 
query lex io.create output; 


--starting parse query psdl (Argv(2)) 


queryparser.yyparse; 
query lex io.close input; 
query. lex 16.close output; 


if query_is_operator then 


lf is generic then 
query_compose_pkg.generic_operator; 
elsif is_generic=False then 
query_compose_pkg.non_generic_operator; 
end if; 
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elsif query is adt then 


if is generic then 
query compose pkg.generic adt; 
elsif is_generic=False then 
query_compose_pkg.non_generic_adt; 
ends wee 


end if, 
else 
put line("Wrong number of arguments"); 


end rr 


end main; 
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APPENDIX D - SOURCE CODE FOR GUI 


A. SOFTBASE.A 


-- *** TAE Plus Code Generator version V5.1 


ES '** File : softbase.a 

meme ~* Generated : May 21 16:12:31 1992 

-- *** Revised by : Dogan Ozdemir 

-- softbase -- Main program BODY 
--| PURPOSE: 


--| This is the main program of an application generated by the TAE Plus 
--| Code Generator. 


--| REGENERATED: 
--| This file is generated only once. 


--| NOTES: 
Siero turn this into a real application, do the following: 


--| 1. Each panel that has event generating parameters is encapsulated by 
--| à package. Each parameter that you have defined to be "event- 

--| generating",has an event handler procedure in the appropriate panel's 
--| package body. The panel's package body is in a file, named by 

--| concatenating the string "pan " with the panel name (followed by 

--| " b.a"). Each handler has a name that is a concatenation of the 

--| parameter name and the string “_Event" 

--| Add application-dependent logic to each event handler. 

--| (As generated by the Workbench, each event handler simply logs the 
e occurrence of the event.) 


--| 2. See the "TAE Plus Ada Programmer's Guide" for directions on how 
i to compile and link this program. 


| ADDITIONAL NOTES: 

--| In TAE Plus version 4.1, every TAE Ada application caused the screen 
--| to be cleared as part of the initialization of the tae termio package. 
--| In TAE Plus version 5.0, the TAE Ada bindings have been changed so as 
EJguvsteroccleanp"wNuewscreen by default. Simply addrrg^a call to 

--| TAE.Tae Termio.T Clear will produce the same results as 4.1. 


with TAE; 
with Text. IO;- 
with Global; 
with U Env; 
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use Text. IO, GIOGbSML S 
-- PROGRAMMER NOTE: 
-- add one "with" for each resource file in this appl icataen 


with softbase_Support; 


procedure softbase is 


Wpt_Event : TAE.Tae_Wpt .WptaEventabr; 
Type_of_Wpt_Event : Tae.Wpt Eventtype; 
User Context Ptr : TAE.Tae-Wpt.Event-Contewxc rer. 
Panel In. Resource File : Boolean; 
UNKNOWN. WPT. EVENT : Exception; 
L integer ele 

begin -- softbase 


-- permit upper/lowercase file names 
TAE.Tae Misc.F, Force Lower (FALSE); 


TAE.Tae Wpt.Wpt, Init ("", Global.Default, Display. Id); 

-- initialize resource file 

-- PROGRAMMER NOTE: 

-- For each resource file in this application, calls to the approriate 


-- Initialize, All, Panels and Create Initial. Panels must be added. 


softbase Support.Initialize, All, Panels("/n/gemini/work/ozdemir/tae/ 
work/softbase.res"); 


softbase Support.Create Initial, Panels; 


TAE.Tae Wpt.Wpt NewEvent (Wpt, Event); 


--ADDED 
Global.Strlen(U Env. AEgN DU CSS LE 
path(1--L) :=U Env MN. 
Global.Strlen(U Env.Argv(2) Se 2 MEME 


proto .prefix(l..L):-USMERnV A EguWu 2 5. 


EVENT LOOP: 
while not Global.Application, Done loop 


-- PROGRAMMER NOTE: 
-- use Global.Set Application, Done in "quit" event handler to exit loop 


-~ Wait for the next event 


TAE.Tae_Wpt .Wpt_NextEvent 
( Event => Wpt_Event, 
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Etype z» Type of Wpt Event ); 
case Type of Wpt Event is 
when TAE.Tae_Wpt .WPT_PARM_EVENT => 
-- Panel event has occurred. 
== PROGRAMMER NOTE: 


-- Get the user context (which is stored in the panel object 
-- when Wpt_NewPanel is called). 
pBAR.TlTae WEBDWDUtSEXtracceconcuextc 
( Event == Wet Event, 
User_Ptr => User_Context_Ptr ); 


-- Get the parameter name 


TAE. Tae_Wpt .Wpt_Extract_Parm 
( Event => Wpt_Event, 
Parm => User_Context_Ptr.Parm_Name ); 


-- Get target id 


TAE.Tae Wpt.Wpt Extract, Data 
( Event => Wpt_Event, 
Data => User Context_Ptr.Datavm_Ptr }; 


-- Find Vm parm object 


TAE.Tae_Vm.Vm_Find 


( Vmid => User Context _Ptr.Datavm_Ptr, 
Name 2» User Context Ptr.Parm Name, 
Vout => User_Context_Ptr.Parm_Ptr ); 


-- Dispatch event to event handler 


softbase_Support .Dispatch_Panel 
( User_Context_Ptr => User_Context_Ptr, 
Panel In Resource File -» Panel In Resource File ); 


if (not Panel. In . Resource File) then 


-- PROGRAMMER NOTE: À 
-- For applications with more than one resource file, 
-- add a call to Dispatch Panel for each resource file. 


Text IO.Put Line ("Unexpected event from wpt!"); 
raise TAE.Tae Wpt.BAD EVENT ID; 
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create 


end if; 


when TAE.Tae Wpt.WPT FILE EVENT --» 


Text IO.Put Line ("No EVENT. HANDLER for event from external 
source Ue 


PROGRAMMER NOTE: 

Add code here to handle file events. 

Use Wpt AddEvent and Wpt RemoveEvent to register and remove 
event sources. 

Use Wpt Extract EventSource and Wpt Extract EventMask to get 
information about the event that occurred. 


when TAE.Tae Wpt.WPT WINDOW, EVENT => 


nul 


PROGRAMMER NOTE: 
Add code here to handle window events. 
WPT WINDOW EVENT can be caused by windows which you directly 


with X (not TAE panels), or by user acknowledgement of a 

Wpt PanelMessage (therefore no default put line statement is 
generated here). 

You MIGHT want to use Wpt Extract xEvent Type here. 


DO NOT use Wpt, Extract, Parm, xEvent since this is not 
a WPT PARM, EVENT; you may get a "storage error". 


when TAE.Tae Wpt.WPT TIMEOUT EVENT => 


Text IO.Put Line ("STUB: Event WPT TIMEOUT EVENT"); 


PROGRAMMER NOTE: 


-- Add code here to handle timeout events. 
-- Use Wpt SetTimeOut to register timeout events. 


-- These are internal TAE events. The application should never see 


them. 


-- when TAE.Tae Wpt.WPT HELP EVENT --» 
-- when TAE.Tae Wpt.WPT INTERRUPT EVENT => 


when others => 


raise UNKNOWN WPT EVENT; 
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end case; 
end loop EVENT LOOP; 


-- PROGRAMMER NOTE: 


-- Application has ended normally. Add application specific code to 
-- close down your application. 


exception 


when UNKNOWN WPT EVENT => 
E MIOSPHE OUO EARTABOERROR: Unknown Wpt NextEvent Event Type: "); 
Text IO.Put (TAE.Wpt Eventtype'image(Type of Wpt Event) ) 
NES NMIC Pu -mPrne (7 .. Forced exit."); 


t 


end softbase; 


BE 


B. GLOBAL PACKAGE 


1. GLOBAL S.A 


-- *** TAE Plus Code Generator version V5.1 


=> 2 2S Fake a 
-- *** Generated : May 21 16:12:31 1992 
-- *** Revised by : Dogan Ozdemir 


X ck ck 3e e ck ce ck de ck oe oe ck e ck oe cde ck ck ck ck ce de ck de de ode ck ck ck ck ck ce oc de ck de ck ck oe ok e oe ck o ck ck ck ck ck ck ok Ok ok ox ok ck o ce ck ck oe eoe ck okoX* 
* 

== 8 Global -- Package SPEC 

* 


*e 3 ck Kew Ke KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KKK KK KKK KK KKK KK KKK KKK KKK KKK 


with X_Windows; 

with Text. IO; 

with TAE; 

with SYSTEM: 

use TAE, SYSTEM, Text, IO; 


package Global is 


== PURPOSES 


--| This package is automatically "with"ed in to each panel package body. 


--| You can insert global variables here. 
--| REGENERATED: 
--| This file is generated only once. 
package Taefloat_IO is new Text_IO.Float_IO (TAE.Taefloat) ; 


Default_Display_Id : X_Windows.Display; 


=- ADDED 

library :oaStrEd2hg (1210) —9(o&thers--c 

lib tco dee PE - String Cl Bo zototherssc T 

path > (String (12.3 0)e ew eeners ==; 

proto_prefix : String (12760) .=(Othens=— am.) 

Query_psdl : String (1.30) = sob mers a, 

Directory : Strang (1.730) += Steen er s=> saa, 

kwquery_outfile 7 String ( Ll. .15):="kequen Souci leS 

query_outfile < String( 1...13): acuer Ponele 

component * String(l 8300 ANC oBHe Esc 00 

Gi rectonveearlay : String (lee) NisPhers- 14) 

directory file-name: String (1224) 3] eeiinecec ae re 

lib_vec > § vector(1..20):= (ethers=> new STRING(1 LA 
file vec : s vector(1..200):2 (others-» new STRING(ISS89000E 
Is_a director, : Boolean:=FALSE; 
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| 


Upper directory : Boolean:=FALSE; 


Component_add :- Boellean: = FALSE; 

Component_update MB So lean: =FALSE- 

Query : Boolean:zFALSE; 

werent directory  : array(1..20) of String(1..80); 

EBPrectory file Serie see, 

cur dir. index agentegers-is 

Bu count a eder SU, 

num_of_comp "Xnteger.-l- 

com * constant String:z"SHOME/caps/src/software. base/sb "; 

parse : constant String:-z"SHOME/caps/src/software base/ 
integrate/"; 

-- Application, Done =- SSUDPPOgram SPEC 


. . 9 9*9 9 a 9 9? 9 9*9 9 9 9 9 9 9? 9 9$» 9 €9 9 9 9 9 € € 9 9 9 9 9 06 09 9 9 9 9 9 9 9 9 9 9 9 9 9^ 0&9 9€9 $9 . 0. 0. 9 99 9 9 9 *$* 9 e» 9 » * e» 9 e 


function Application Done 
return Boolean; 


--| PURPOSE: 
--| This function returns true if a "quit" event handler has called 
--| Set Application Done, otherwise it returns false. 


€ 9 9 9 9 5» 9 9 FC €9 9 e ê 9 ê 9* . . 9» . . 0. 9 9» 9» 9» 9 . . 5» . €9 € €9 09 € 0€ 9*9 9? * 9? * 9*9 9 09 0€ 09 6 * 99 9? » * 0$ 9*9? 9? 9 9 9? * * 9? * * 9 


procedure Set Application, Done; 


--| PURPOSE: 
--| This procedure can be used by an event handler, typically a "quit" 
--| button, to signal the end of the application. 


€ € € € € 9 9 06 09 09 0€ €9 9 9 09 09 €9 09 0€ 9 9 9 5» 9 ^ 6&6 9 9 9 09 €9 ^» 9 09 9 9 9 069 9 9€ 9 9 9 9 0€ 0€ 9* 9 9» 9 9 5» ^» 9 9 9 9 09 9 99 99 9 9 9 9 9 
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procedure system call(command : STRING); 

--| PURPOSE: 

--| This procedure is used to make unix system calls from within the 
--| program. 


135 


e oo 9 9 o o o o 9 9 o o @ €9 o o o o €9 9 9 9 9 9 ọọ 9 ê ê o o o o o €9 0. . o o o o o o € e e 5» . o 9 9 9 9 o +. o 9 9 9 9 9 9 9 * a a a 


procedure strlen(s: in String; n: in cuGwiaeecer) - 


--| PURPOSE: 
--| This procedure is used to get the length of strings. 


* >» © > © €. o o o 06 060 0 0. 9 9 o o o o o o o 9 9 9 o 9 o 9 o 9 9 9 9 9 9 9 9 o o o o >o 9 e ^» ^» e e e e e ê ê e à» e 5» 9 9 à» 9 9? ê ê a 


-- Tist directory -- Subprogram SPEC 
procedure list directory(file sin E type; 


file name: in tout seeing 
file vec :in out s_vector; 
I ¿in out9hbteger s 


--| PURPOSE: 
--| This procedure is used to obtain the contents of unix directory 
--| structures. 


6 » 9 9 €9 e 5» €9 €9 9 ê ê 9 9 9 9 09 9 ^» 0€ 09 09 * 09 09 9 9 6 9 9 069 9 9 € 9* 09 069 9 9 09 9 6 9 06 9 9 99 9 9 069 e 06 9 069 0*9 9 06 9» 9 e 9 c» c» 9 ^ 9€ 


e © o òo o o 9 o © €9 à © € o o 9 0 o 0 o o o o o 6 o 0 6 6 0. 6. 9*9 9 0. 0. 9 o e. O o > O o ọọ O O O e e OÒ e e o > O o e o O O 9 O 0 O 


procedure list_components (file unm out file-type: 
file_name:in out string; 
flle vec sin out s vector: 
I sin out integer, 
1 
-| PURPOSE: 
--| This procedure is used to read the component list from a text file and 
--| fill them into a s, vector structure to be displayed in a TAE panel. 


5 read_directory -- Subprogram SPEC 
procedure read_directory (file sin Ouces il e Erpe, 


file name:in out string; 
dir names tn out string); 
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| 
: 
| 


--| PURPOSE: 


--| This procedure is used to read the name of the current directory and 


EUStc get thewpaeh from a text file. 


e 9» 9» * 9 ©» © © © © $9 9 9 9? * 9? 9? 9 9 9 e 9 9 © 9? © © © © © 9? * * * 9? * * 


-- Strorstring 

procedure errorstring(file Sin out 
file name:in out 
Grr-etr C umeout 

--| PURPOSE: 


--| This procedure is used to read the 
--| software base program. 


6 e 9 9 o o o o 9 9 o o 9 9 9 o o 9 9 o o o o 9 9 o o o o o o o o o * o e 


* 9? © © >ù 9" 9? 9 9 9 9 9 o 9 9 > o > > 060 > > > > > > > h > > > > O 8 e 


procedure parse line(s: in String); 


a| PURPOSE: 


. 9 ù © ?» © >ù oo ?*? 9 9 9 9 9 9 9 9 9 9? e o © 5» 9 9 9? 9 9 e 


e. eo . © © © © 9? 9 9 9 9 9 9 9 © © © © © © © © © 9» 9 9 e ec 


file type; 
string; 
Extender) 


error message given by the 


6 9 o 9 o o ù o o o o 9 o o v 9 9 9 c e e e e v o e e 9 e 
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--| This procedure is used to determine if the selected line is a 
--| directory or a file and if it is a directory it gets the identity 


--| of the directory. 


end Global; 
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2. GLOBAL B.A 


-- *** TAE Plus Code Generator version V5.] 
== "E e : Global_b.a 

== *** Generated "May 21 io mo 9 

-- *** Revised by : Dogan Ozdemir 


E E EEE EEE EEE EEE EEE EEE EEE EEE EEE ETRE EEE TEE EE 


* 


-- * Global -- Package BODY 


* 


* ck e keke Ke KKK KKK KKK KK KK KKK KKK KKK KKK KKK KK KKK KKK KKK KK KK KK KK KK KKK KKK KKK KKK 


package body Global is 


--| REGENERATED: 
--| This file is generated only once. 


Is_Application_Done : Boolean := FALSE; 


€ € € o ê o o o o o o o o o o à 06 > 0. > 0. 0. > 0. 0. > 0. 0. 0. 0. o > 9 > > O 09 9 9 0. 9 09 O 0. 9 9 o . 0. 0. à 9 à 9 9 9 9 9» ‘o 9 9 (4 9 . 9€ 


function Application Done return Boolean is 
begin 
return Is, Application, Done; 


end Application Done; 
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procedure Set Application Done is 


begin 
Is Application,Done :z TRUE; 
end Set Application Done; 


=> ADDED) 





is 
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procedure system call(command : STRING) is 


procedure system c (command : ADDRESS); 
EPpagmawNERPACE(C, SYSTEM C); 

pragma INTERFACE NAME(SYSTEM C, " system"); 
TEMP : constant STRING := command&ASCII.NUL; 
ERROR : INTEGER; 


begin 
SYSTEM C(TEMP'ADDRESS) ; 
end system call; 
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procedure strlen(s: in String; n: in out Integer) is 
ME Integer :- 1; 


begin 
Toop 
MeS I) = Een 
exite” 
end if; 
E--rel: 
end loop; 
m csl: 
end strlen; 


€ € 9 9 ê ê 06 . . . ^ 060 . ... .1... . . . ... 0. € 9 6. 9 9 6 6 06 6 6. 6 6 06 9 9 9 09 9 9 E 9 6 9 € 99 9 9 . @ @ 9 9 @ 0. 9» 9 * @ . . 9 9? 9 
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pEocedure l]ast-drrectory(file:in out file type; 
flle name:in out string; 
tole vec = in out s vector; 
m :in out integer)is 
len : imtéger :=1; 


begin 
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Teu 
open (file,mode=>in_file, name=>file_name) ; 
file vec(I A e 


for cl in 2... 0Micop 
file -vee()) save! = = 
end loop; 


while not end_of_file (file) loop 
Icir; 
Text IO.get line(file,£f1le-vec(Ir).all, em); 
for clean in (len+1)..80 loop 
file vec(I) .all(clean):=' '; 
end loop; 
end loop; 
close(file); 


exception 
when END ERROR => null; 


end list directory; 
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procedure list components(file inout pe. 
file name: 11 out string: 
file vec :/in out s vector; 
E sin out integer) is 
len: integer :=1; 


begin 
LS 
open(file,mode=>in_file, name=>file_name) ; 


while not end_of_file (file) loop 
Gext_IO. get _line(ftile, tile vec( ljealt ten) 
for clean in (len+1)..80 loop | 

filg vec(I).all(cleani: =i i; | 

end loop; | 
Te JT + le 

end loop; 
tz gg 

close(file); 

end list components; 
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E read directory 
procedure read directory(file toilet pe; 


tresnane: in OUE SCING; 
Citenamne «in Gut String) is 
Wn: integer :=1; 


begin 
open(file,mode=>in_file, name=>file_name) ; 
Text_IO.get_line(file, dir_name, len) ; 
close(file); 

end read_directory; 


-- SELorse hung 
procedure errorstring(file Note type: 


file_name:in out string; 
ASI tout String) is 
lens integer :=1; 


begin 
open(file,modez»in file,namez»file name); 
px o.get-linelfile,err.strz,len); 
ME Llen=0 then 
Text IO.get line(file,err str,len); 
end if; 
cNOse(ftlile)- 
exception 
when END. ERROR -»  close(file); 
ExdSerrorstring; 


€ e 9 o o o € €9 € 0€ ê 0€ o o o o òo o o o o o o o o o ooo e c. e ce c €9 09 e e e e SO 9 e €9 9? € 069 06 0€? 0€ * 9 e o» 6 O 06.) $9 0$ Ke e. 


procedure parse line(s: in string) is 


char:character; 
N :iınteger:=l; 


begin 
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strlen(s,N); 
1£ SN) = MEE 
Is_a_ directory = MUE; 


end if; 
if N=2 chen 
lf s[1.-2)- Gen 
Upper dilrecten,:=TRUE, 
ena te 
end if; 


end parse line; 


end Global; 
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E. 


PANEL LIBRARY PACKAGE 


l. PAN LIBRARY S.A 


EE TARE Plus Code Generator version V5.1 
p * File : pan library s.a 

*** Generated : May 21 16:12:31 1992 
*** Revised by : Dogan Ozdemir 


* ck ck ce ck ce ck ce ce oe cde ce che cde che ce ck che ce cde cde ce cc e ode che cde ck cde ck cde De ce ck ck oe ck ce ck cde cde ck che ck ce oe c Oe ceo ck c oe ce c oce ce ck ce KK KK KEK KEKE se 
Ae 

A Panel_library -- Package SPEC 

* 


kek Kk ck ce ce ck ck ck e ck ce chc cde che che ce e ck che cde dde ce ce ck e ck de c ck ck ce ce ce ck ke e ce ck ce ck ck ce eo ce ce ode ceo ck ce ck ck ce ce ck ce ck e e e ck ck ck oce eoo 


Poth TAE; 
with X Windows; 


package Panel, library is 


PURPOSE: 

This package encapsulates the TAE Plus panel: library 

These subprograms enable panel initialization, creation, destruction, 
and event dispatching. For more advanced manipulation of the panel 
using the TAE package, the panel's Event Context (Info) is provided. 
It includes the Target and View (available after initialization) 

and the Panel Id (available after creation). 


REGENERATED: 
The following Workbench operations will cause regeneration of this 
file: 
The panel's name is changed (not title) 
For panel: 


Ee) library 

E-I 
Info 5: TAE-Tae Wpt.Event Context Ptr; -- panel information 
-- Initialize, Panel -- Subprogram SPEC 


9* e € 6 9*—* 0» €9— 0€ 909 9. 9 9 0 9 € 9€ 9 0€ 9* 0€ 9 9 @# o. . 09 9 6 6 € 6 @ @ 9*9 *9* 6 06 06 €9 @ e 9 09 9 09 09 9 9 9*9 $9 9 9 99 & & 9*9 & 9 9*9 99 9 . . . . 


procedure Initialize Panel 


( Collection Read -- TAE Collection read from 
Iin TAE Tacco Correction. Ptr )} -- resource file 
--| PURPOSE: 
--| This procedure initializes the Info.Target and Info.View for this 
dame 
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--| EXCEPTIONS: 

--| TAE.UNINITIALIZED PTR is raised if Collection Read met initializes 
--| TAE.Tae Co.NO SUCH MEMBER is raised if the panel is not in 

--| Collection. Read 
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procedure Create Panel 
( Panel. State -- Flags sent to Wpt NewPanel. 
in TAE.Tae Wpt.Wpt Flags 
:z TAE.Tae Wpt.WPT PREFERRED; 


Relative, Window -- Panel origin is offset from 
in X Windows.Window -- this X Window. Null Window 
sse X Windows.Null Window ); -- uses the root window. 
--| PURPOSE: 


--| This procedure creates this panel object in the specified Panel, State 
--| and stores the panel Id in Info.Panel Id. 

i 

--| EXCEPTIONS: 

--| TAE.UNINITIALIZED PTR is raised if the panel is not initialized 
--| TAE.TAE FAIL is raised if the panel could not be created 
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procedure Connect, Panel 
( Panel, State 
in TAE.Tae Wpt.Wpt Flags 
:z TAE.Tae Wpt.WPT PREFERRED; 


Relative Window -- Panel origin is offset from 
in X Windows.Window -- this X Window.  Null.Window 
¿= X Windows Null Mindo -- uses the root window. 
--| PURPOSE: 


--| If this panel doesn't exist, this procedure creates this panel object 
zi in the specifiec Panel State and stores the panel Id in 

=>] Into. Panel. Id. 

--| If this panel does exist, it is set to the specified Panel. State. 
== | In this case, Relative_Window is ignored. 
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aon E RT GON ES 

HII H SITI E L PETR iS raised from Create Panel if the panel is 
--| neto initialized 

=-| TAE.TAE FAIL is raised from Create Panel if the panel could not be 
E created 

ESICTTAE-Tae-Wpt.BAD STATE is raised if the panel exists and the 

--| Panel State is an invalid state 


. e o o o ò Ò © >o o o o o 0o Oo O o 0o o o ol‘ 6 6 6 6 6 6 6 6 6 € 6 6 e e e € e eo e 6 6 ê à e € e o ê êe ae € 49 e ae a e e €. ae a a 


procedure Destroy. Panel; 


=| PURPOSE: 
--| This procedure erases a panel from the screen and de-allocates the 
--| associated panel object (not the target and view). 


--| EXCEPTIONS: 

--| TAE.Tae Wpt.BAD PANEL ID is raised if Info.Panel Id is an invalid 
--| id. 

--| NOTES: 


--| Info.Panel Id is set to TAE.NULL. PANEL. ID, and should not referenced 
EU in any Wet call until it is created again. 
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procedure Dispatch, Item 


( User Context Ptr -- Wpt Event Context for a PARM 
in TAE.Tae Wpt.Event Context Ptr ); -- event. 
--| PURPOSE: 


--| This procedure calls the Event Handler specified by User Context Ptr 


--| 
--| EXCEPTIONS: 
--| Application-specific 


end Panel library; 
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2. PAN LIBRARY B.A 


-- *** TAE Plus Code Generator version V5.1 


-- *** File : pan library b.a 
-- *** Oenerated MN lo al 31 1992 
-- *** Revised by : Dogan Ozdemir 


E X oce ck c ck c A A X X XY oce ce se cx oce c c ck ck ck oe oe X X X XY X X X X XY oce oce oe oe ce de AA AA AA A A ok ce OX ok oe oe ok XY X X X X X AA A OX ce oe o A A 
* 
-- * Panel_library -- Package Bony 

* 


Eve. Lk db db db db db db db db db dE db d db db db db db d dd dd d d dd dd X hX X X X T+ X X + X X X X X h X X X + X X X X X X dd 4 444 4 4 4 


with TAE; use TAE; 
withlale:xteros 
with GIGOGESUS 
use Text IO,Global; 


-- One "with" statement for each connected panel. 
with Panel. lbselect; 

with Panel libadd; 

with Panel. lbdelete; 


package body Panel library is 


--| NOTES: 

--| For each parameter that you have defined to be "event-generating" in 
--| this panel, there is an event handler procedure below. Each handler 
--| has a name that is a concatenation of the parameter name and “_Event". 
--| Add application-dependent logic to each event handler. (As generated 
--| by the WorkBench, each event handler simply logs the occurrence of 
--| the event.) 


--| You may want to flag any changes you make to this file so that if 
--| you regenerate this file, you can more easily cut and paste your 
--| modifications back in. 


--| REGENERATED: 

--| The following WorkBench operations will cause regeneration of this 
--| file: 

-- | The panel's name is changed (not title) 

--| For panel: 

x library 

--| The following WorkBench operations will also cause regeneration: 
=<] An item is deleted 

== A new item is added to this panel 

== | An item's name is changed (not title) 

zi An item's data type is changed 

== An item's generates events flag is changed 

== An item's valids changed (if item is type string and connected) 
sj An item's connection information changed 

--| For the panel items: 

=| bibiune: help, Cru 
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procedure Initialize Panel 
( Collection Read 
Ine MIascecoscollection-Ptr ) is 


begin -- Initialize Panel 
Info :- new TAE.Tae Wpt.Event Context; 
Bus ccllectron :- Collection. Read; 


NH s TaesGomeo FindWUnto.collection, "library v", Info.View); 
moemrac CoccolrFina (Info-collection, "library t", Info.Target); 


exception 


when TAE.UNINITIALIZED PTR z» 
Text IO.Put Line ("Panel library.Initialize Panel: " 
ce llection Read not initialized."); 
ralse; 


when TAE.Tae_Co.NO_SUCH_MEMBER => 
Teemo Put Line ("Panel library.Initialize Panel: " 
& "(View or Target) not in Collection."); 
raise; 


end Initialize. Panel; 
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procedure Create Panel 
( Panel State 
in TAE.Tae Wpt.Wpt Flags 
:= TAE.Tae Wpt.WPT PREFERRED; 


Relative Window 
in X Windows.Window 
: X Windows.Null Window ) is 
begin -- Create Panel 
if Info.Panel_Id = Tae’.Null_Panel_Id then 


TAE.Tae Wpt.Wpt NewPanel 
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( Dummy => 
Data_Vm => 
View Vm => 
Relative_Window => 
User_Context => 
Flags => 
Panel Id => 
else 


Text IO.Put Line ("Panel (library) 


end if; 
exception 


when TAE.UNINITIALIZED_PTR => 


Info Target; 
Info.View, 
Relative_Window, 
Into; 

Panel State, 
Info.Panel. Id ); 


Text IO.Put Line ("Panel library.Create Panel: " 
& "Panel was not initialized prior to ereacion w) 


raise; 


when TAE.TAE_FAIL => 


Text IO.Put Line ("Panel library.Create,. Panel: œ 
& "Panel could not be created."); 


raise; 


end Create Panel; 
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procedure Connect Panel 
( Panel. State 
in TAE.Tae Wpt.Wpt Flags 


:= TAE. Tae WPC. WPT PREFERRED 


Relative_Window 
in X_Windows.Window 


:= X_Windows.Null_Window ) is 


begin -- Connect_Panel 


if Info.Panel_Id = Tae.Null_Panel_Id then 


Create_Panel 
( Relative_Window 
Panel State 
else 


TAE.Tae Wpt.Wpt SetPanelState 


end if; 


-» Relative Window, 
=> Panel State ); 


(Info.Panel. Id, Panel State); 
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is already displayed."); 





exception 
when TAE.Tae Wpt.BAD STATE z» 


Text IO.Put Line ("Panel library.Connect Panel: i 
& "Invalid panel state."); 
raise; 


end Connect Panel; 
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procedure Destroy Panel is 
begin -- Destroy Panel 
TAE.Tae Wpt.Wpt PanelErase(Info.Panel Id); 
exception 
when TAE.Tae Wpt.BAD PANEL ID => 
Text IO.Put Line ("Panel library.Destroy Panel: : 
Mco. panela is tan invalid. id."); 
ralse; 
when TAE.Tae_Wpt .ERASE_NULL_PANEL => 
-- This panel has not been created yet, or has already been destroyed. 
-- Trap this exception and do nothing. 
null; 


end Destroy_Panel; 


= A A E E ee ee e AB BARBA MA 


-- begin EVENT HANDLERS 
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procedure libfunc Event 
( Info : in TAE.Tae Wpt.Event Context Ptr ) is 


--| PURPOSE: 

--| EVENT HANDLER. Insert application specific information. 
Value MN iuo Scringetl- TAE -Tae-Taecont.STRINGSIZE)!; 
Count e TAE.Taeint; 
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id-fille. =) fittest pes 


id string: String (1..830):= (others SEERE 


id < String (1..10):= (others O 
len,;1,0 ¥einteayer 2 —1- 
begin -- libfunc_Event 


-- Begin default generated code 
TAE.Tae.Vm.Vm-.Extract Count (Info-Parm Pemawcoune = 
if Counce > 0 -then 

TAE.Tae Vm.Vm Extract SVAL (Info.Parm PEr oee 
end if; 
system call("whoami » id file"); 
pen(id_file, modđde=>in_file,name=>"id filaj, 
geťt_line(id file id string, len); 


whiles idistring( I) /= CERCOP 
leu) co To TS EET EE 
I: TEM 
JosJ; 

end loop; 


-- End default generated code 
-- Begin generated code for Connection 


if TAE.Tae_Misc.s_equal (Value(l), "Library Selection") then null; 
Connect Panel (TAE.Tae Wpt.WPT INVISIBLE); 
Panel lbselect.Connect Panel (TAE.Tae Wpt.WPT VISIBLE); 


elsif TAE.Tae Misc.s equal (Value(l), "Library Addition") then 
if id( 1...49- "rooc'sthen 
Connect Panel (TAE.Tae Wpt.WPT INVISIBLE); 
Panel libadd.Connect Panel (TAE.Tae Wpt.WPT VISIBLE); 
else 


PERSONNEL, ONE a); 


TAE.Tae_Wpt .Wpt_PanelMessage(info.panel_id, "AUTHORIZED 
f 


end if; 
elsif TAE.Tae_Misc.s_equal (Value(l), "Library Deletion") then 
1£ 2d. 4 = “neers nen 


Connect_Panel (TAE.Tae_Wpt .WPT_INVISIBLE) ; 
Panel_lbdelete.Connect_Panel (TAE.Tae_Wpt .WPT_VISIBLE) ; 
else 
TAE.Tae_Wpt .Wpt_PanelMessage(info.panel_id, "AUTHORIZED 


PERSONNEL) Chi EOT 


end if; 
end if; : 
l=, 
1d:=" mee 


system_call("rm id_file"); 
-- End generated code for Connection 


end lib unc Event, 
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procedure quit_Event 
wnio n in TAE:Tae_Wpt.Event_Context_ Ptr ) is 


ao PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


Pee wsnarray (1..1) ot String (1..TAE. Tae: Taeconf .STRINGSEZE) ; 
@ount : TAE.Taeznt:; 7 


begin -- quit_Event 
-- Begin default generated code 
woes tae vm via extract Count (Info.Parm.Ptr, Count); 
count => O then 
TAE.Tae Vm.Vm Extract. SVAL (Info.Parm Ptr, 1, Value(1)); 
end if; 
-- End default generated code 
- ADDED 
Global.Set Application Done; 


end quit Event; 


-- end EVENT HANDLERS 
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procedure Dispatch_Item 
( User Context Ptr : in TAE.Tae Wpt.Event Context Ptr ) is 


begin -- Dispatch Item 
if TAE.Tae Misc.s equal ("libfunc", User Context Ptr.Parm Name) then 
libfunc, Event (User. Context. Ptr); 
elsif TAE.Tae Misc.s equal ("quit", User Context Ptr.Parm Name) then 
quit Event (User. Context. Ptr); 
end rs. 


end Dispatch, Item; 


end Panel library; 
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D. PANEL LIBADD PACKAGE 


1. PAN LIBADD S.A 


-- *** TAE Plus CodesGenerator version vol 


=- *** Rille : pan_libadd_s.a 
-- *** Generated : May 21 16:12:31 1992 
-- *** Revised by : Dogan Ozdemir 


* ke de ck 3e de de ke de ce ck ce ce cde ok de de ck de oe ce de ode ce A oce oe oe oce ce ce ode oce oe ode de ck ck oe ode A ode ce e de ck ce de de ck ce ck e c ck ck e ok ok ce ck e o ce ce e 


S Panel libadd “Package” SeEG 


TE EEE EEE EE ETE EE EEE E EEE EEE EEE ETE EE TEE EEES ETE 


wichaa, 
with X Windows: 


package Panel_libadd is 


-= | PURPOSE. 

--| This package encapsulates the TAE Plus panel:  libadd 

--| These subprograms enable panel initialization, creation, destruction, 
--| and event dispatching. For more advanced manipulation of the panel 
--| using the TAE package, the panel's Event Context (Info) is provided. 
--| It includes the Target and View (available after initialization) 

--| and the Panel Id (available after creation). 


| 
| 


-—ISEEGENERATED:I 

--| The following Workbench operations will cause regeneration of this 
--| file: 

-- | The panel's name is changed (not title) 

--| For panel: 


== | libadd 
Info : TAE.Tae_Wpt.Event_Context_Ptr; -- panel information 
-- Initialize Panel -- Subprogram SPEC 


e è o 9 o o * 9 o o 9 o 9 9 9 ọọ 9 9 9 o o o o e. e. * * * > 0. e e e * * © o 9 9 * 9 9 9 o O * 9 O h à» o O o 9 9 9 9 9 9 e +. . . 9 O 


procedure Initialize Panel 





( Collection. Read -- TAE Collection read from 
in TAE.Tae_ Co. Collection PEL I)e -- resource file 
-- | PURPOSE: 
--| This procedure initializes the Info.Target and Info.View for this 
--| panel 
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--| EXCEPTIONS: 

Caern ATAG ZED PTR is raised if Collection Read not initialized 
--| TAE.Tae_Co.NO_SUCH_MEMBER is raised if the panel is not in 

-- | Collection_Read 
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procedure Create_Panel 
( Panel, State -- Flags sent to Wpt NewPanel. 
in TAE.Tae Wpt.Wpt Flags 
:- TAE.Tae Wpt.WPT PREFERRED; 


Relative Window -- Panel origin is offset from 
in X Windows.Window -- this X Window. Null, Window 
:2 X Windows.Null, Window ); -- uses the root window. 
--| PURPOSE: 


--| This procedure creates this panel object in the specified Panel State 
--| and stores the panel Id in Info.Panel Id. 

p 

--| EXCEPTIONS: 

--| TAE.UNINITIALIZED PTR is raised if the panel is not initialized 
--| TAE.TAE FAIL is raised if the panel could not be created 
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procedure Connect Panel 
( Panel State 
in TAE.Tae Wpt.Wpt Flags 
: TAE.Tae Wpt.WPT PREFERRED; 


Relative Window -- Panel origin is offset from 
in X Windows.Window -- this X Window. Null Window 
:z X Windows.Null Window ); -- uses the root window. 
--| PURPOSE: 


--| If this panel doesn't exist, this procedure creates this panel object 
zs in the specifiec Panel State and stores the panel Id in 

E Info.Panel. Id. 

--| If this panel does exist, it is set to the specified Panel State. 
==| In this case, Relative_Window is ignored. 


Sle CE ONS: 
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--| TAE.UNINITIALIZED PTR is raised from Create Panel if the panel is 
--| not initialized 

--| TAE.TAE_FAIL is raised from Create_Panel if the panel could not be 
--| created 

--| TAE.Tae_Wpt.BAD_STATE is raised if the panel exists and the 

-- | Panel State is an invalid state 
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procedure Destroy Panel; 


--| PURPOSE: 
--| This procedure erases a panel from the screen and de-allocates the 
--| associated panel object (not the target and view). 


--| EXCEPTIONS: 
--| TAE.Tae Wpt.BAD PANEL ID is raised if Info.Panel Id is an invalid 
--| id. 





--| NOTES: 
--| Info.Panel Id is set to TAE.NULL PANEL ID, and should not referenced 
--| in any Wpt call until it is created again. 
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procedure Dispatch Item | 


( User_Context_Ptr -- Wpt Event Context for a PARM Y 
in TAE.Tae Wpt.Event Context Ptr ); -- event. | 
--| PURPOSE: 


--| This procedure calls the Event Handler specified by User Context Ptr 


--| EXCEPTIONS: 
--| Application-specific 


end Panel libadd; 
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2. PAN LIBADD B.A 


EE  '* TAE Plus Code Gemerator version V5.1 


ES *** File : pan libadd b.a 
EN Generated : May 21 16:12:31 1991 
== *** Revised by : Dogan Ozdemir 


En * e ck ck ck e oce X X X X X X X h X X X X X X X X X X X X sie oie KEK KKK X X X X X X X X X X X X X X X X X X X X + X X X + + X + + + + + + 


BS. + Panel libadd == Package BODY 


AH A e ck ck oe ck ck cbe ce ce e c de AAA A AAA A oe ce AAA e A Ak AA A AAA AAA A A A KE KKK KKK KKK KK KKK KK 


with TAE; use TAE; 

with Text IO;use Text IO; 
with Global; 

with Panel lbselect; 

with Panel. lbdelete; 

use Global; 


-- One "with" statement for each connected panel. 
with Panel library; 


package body Panel libadd is 


--| NOTES: 

--| For each parameter that you have defined to be "event-generating" in 
--| this panel, there is an event handler procedure below. Each handler 
--| has a name that is a concatenation of the parameter name and " Event". 
--| Add application-dependent logic to each event handler. (As generated 
--| by the WorkBench, each event handler simply logs the occurrence of 
--| the event.) 


--| You may want to flag any changes you make to this file so that if 
--| you regenerate this file, you can more easily cut and paste your 
--| modifications back in. 


Eo R REGENERATED: 

--| The following WorkBench operations will cause regeneration of this 
--| file: 

EO The panel's name is changed (not title) 

ESDSFor panel: 

E | libadd 


4 


--| The following WorkBench operations will also cause regeneration: 

== | An item is deleted 

E-i A new item is added to this panel 

item's name is changed (not title) 

item's data type is changed 

item's generates events flag is changed 

item's valids changed (if item is type string and connected) 
item's connection information changed 


55555 
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--| For the panel items: 


--| libname, rulefile, ol cancel. 
--ADDED 

rulefile : String (WE. 15) := Mitre rs= >= 

Tibr > Sering (1:10) = (others: "NE 


err string : Strind (MTRO others ENS 

error file {efi lem pe 

error fnanepges TT 

package integer inout is new Text IO.integer io(integer); 


use integer inout; 


€ e e e e o à o a à > > è > > o o > > > > > > > > > o > > > 069 > > o à > > à o k a o > > o à o o o o o 9 ^ à à e e 9 ^» 9 » à 9 $* 9$ 


* + o o . o h o o o o o o o €9 @ o o @ o o o o o 9 9 o o € * > €9 O €9 €9 * 9 à o 9 0 o 0 o O 9 o o O e O o ae e e à a à o O e 09 ê @ @ 


procedure Initialize_Panel 
( Collection Read 
in TAR Tac Co Collection Permis 


begin -- Initialize_Panel 


Info := new TAE.Tae Wpt.Event Context; 

Info.Collection :- Collection. Read; 

TAE.Tae-Co.Co FIHnd (Infoc"CcollectTOny""1ybpadd"Vv* Into "ene 
TAE.Tae Co.Co FInd (Info-CollectTyonj;" "libadd?t" ^ Info NTa re 


exception 


when TAE.UNINITIALIZED_PTR => 
Text IO.Put Line ("Panel libadd.Initialize. Panel: i 
& "“Collleetion Read not “inttialized ya.) 
raise; 


when TAE.Tae Co.NO, SUCH, MEMBER --» 
Text IO.Put Line ("Panel  libadd.Initialize Panel:  " 
& "(View or Tardet ) not nico lec tmo. aie 


raise; 


end Initialize. Panel; 
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procedure Create_Panel 
( Panel State 
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in TAE.Tae Wpt.Wpt Flags 
:- TAE.Tae Wpt.WPT PREFERRED; 


Relative Window 
in X Windows.Window 
:z X Windows.Null Window ) is 


begin -- Create Panel 


if Info.Panel. Id » Tae.Null. Panel. Id then 
TAE.Tae Wpt.Wpt NewPanel 


( Dummy - 
Data, Vm s> into Target, 
View_Vm => Info.View, 
Relative_Window => Relative_Window, 
User_Context =) Loo, 
Flags => Panel State, 
Panel Id 2s- Info Panel Id ); 


else 
Text_IO.Put_Line ("Panel (libadd) is already displayed."); 
end if; 


exception 


when TAE.UNINITIALIZED PTR => 
Text IO.Put Line ("Panel. libadd.Create Panel: E 
& "Panel was not initialized prior to creation."); 
raise; 


when TAE.TAE. FAIL => 
Text IO.Put, Line ("Panel. libadd.Create. Panel: : 
& "Panel could not be created."); 
raise; 


end Create Panel; 
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procedure Connect_Panel 
( Panel_State 
in TAE.Tae Wpt.Wpt Flags 
:Z TAE.Tae Wpt.WPT PREFERRED; 


Relative Window 


in X Windows.Window 
:z X Windows.Null Window ) is 
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begin -- Connect Panel 


if Info.Panel Id - Tae.Null Panel Id then 
Create Panel 
( Relative Window => Relative Window, 
Panel State z» Panel, State ); 
else 


TAE.Tae Wpt.Wpt SetPanelState (Info.Panel Id, Panel.State); 
end e 
exception 
when TAE.Tae Wpt.BAD STATE => 
Text_IO.Put_Line ("Panel_libadd.Connect_Panel: n" 
& "Invalid panel state."); 


raise; 


end Connect_Panel; 
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procedure Destroy Panel is 
begin -- Destroy Panel 

TAE.Tae Wpt.Wpt PanelErase(Info.Panel Id); 
exception 


when TAE.Tae Wpt.BAD PANEL ID => 
Text IO.Put Line ("Panel libadd.Destroy Panel:  " 
& "Info.Panel Id is an invalid id."); 
raise; 


$ 


when TAE.Tae_Wpt .ERASE_NULL_PANEL => 


-- This panel has not been created yet, or has already been destroyed. 


== Trap this¥exception and caounotening. 
nulas 


end Destroy Panel; 


TAR AAA AE EA AE AA AA E AA EEE A AA AE AA AA EA E AA AA EA AAA Ah 


-- begin EVENT HANDLERS 
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-- . libname_Event -- Subprogram SPEC & BODY 
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procedure libname Event 
MITA Eo n: in TAE. Tae Wpt.Event Context_Ptr ) is 


--| PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


alue array (1..1) of String (1..TAE.Tae_Taeconf .STRINGSIZE) ; 
Count : TAE.Taeint; 


begin -- libname Event 
-- Begin default generated code 
EB sUIaesym?ovm-Extract Count (Info.Parm Ptr, Count); 
ap ccunt > 0 then 
TE Lava. vM -Extract SVAL (Info.Parm Ptr, 1, Value(1)); 
else 
nulle 
end 1f; 
- -ADDED 
O =Valuexl)(1..10); 
-- End default generated code 


end libname. Event; 


s e e e o o o 9 9 © 6 ê 9 9 ù 4. 9 9 9 9 © o o o o o ù ù ù ù © © & o 9 9 o k o 9 9 9 9 9 9 o o o o o o o O o o o o . e. e. . . e. . e 


€ © è èo o oo 9 o o e o o 9 9 o e 9» ù ê o > o o o o 9 ù ù ù ù 0. 9 9 9 9 9 9 9 9 9 9 9 o o o o o 9 * o . . e. 9 9 0. k o 9 O O O V 9 e 


procedure rulefile_Event 
enro Uh TAE.Tae Wpb.Event-Context Ptr ) is 


--| PURPOSE: / 
--| EVENT HANDLER. Insert application specific information. 


Dpuul array 011) of String (l.-TAE.Tae-Taeconf.STRINGSIZE); 
count : TAE.Taeint: 


begin -- rulefile_Event 
-- Begin default generated code 
IEMTaesSumevVm"Bxtract- count (Info.Parm.Ptr, Count); 
Procount » 0 then 
TAE.Tae. Vm.Vm, Extract. SVAL (Info.Parm Ptr, 1, Value(l)); 
--ADDED 
molertl le ews) -= Valitea(l)(2..15)-; 
else 
null; 
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end if; 
-- End default generated code 
end rulefile Event; 
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procedure ok, Event 
( Into = in TAE Tae Wpt Event Context Ptr IETS 


--| PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


Value : array (1..1) of String (l..TAE.Tae Taecont.S TPRENOSSMIBEDE 
Count WBAXERPT2erIDnt: 


- ADDED 
dir : constant String := "SHOME/caps/src/software_base/”"; 
N,M v: Integsr-zi: 


Dummy: Boolean; 
Libcontent : file type; 
len,S:integer:=1; 





begin -- ok_Event 
-- Begin default generated code | 
TAE .Tae.Vm.Vm_Extract_Count (Info.Parm Ptr, Counci: 
if Count. > 0 then 
TAE.Tae Vm.Vm Extract SVAL (Info.Parm Ptr, 1l, Value(1)); 
else 
null; 
end if; 
- -ADDED 


open (Libcontent,mode=>in_file,name=>"libcontent"); 
get (Libcontent, lib count nE | 
if. lib cóõunt -= lOSthocn 
TAE.Tae_Wpt .Wpt_PanelMessage(info.panel_id,"ONLY 20 LIBRARY IS 
PERMITTED); 
else 
global.strlen(libr.N); 
global.strlen(rulefile,M); 
global.system call(com&"ml "&libr(1..N)&" "&drir&rulefile(1. TEL 
"&error fname); 
global.errorstring(error file,error. fname,err. string); 
global.strlen(err string,S); 
if S»1 then 
TAE.Tae Wpt.Wpt PanelMessage(info.panel id,err. string); 
S:sl- 
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global.system_call("rm "&error fname); 

mor errin 1.: T30mTOop 
CH TEI ES T '3 

end loop; 

else 

IBEN-ount:slibscounter- 

Sci peline (Libeontenk): 

forer oni. (libsecount=1) logs 
get_line(Libcontent,lib_vec(1).all, len); 
skip line (Libecntent) 

end loop; 

res lt omecoume ) calls =la br - 


TAE.Tae_Wpt .Wpt_SetStringConstraints (Panel_lbselect.Info.Panel_Id, "selec 
Eu" taeint(lib-count),lib vec); 


TAE.Tae Wpt.Wpt SetStringConstraints(Panel, lbdelete.Info.Panel Id,"selec 
BEEN taeint(lib.count),lib. vec); 


Dummy :=TAE.Tae_Wpt .Wpt_Pending; --Now! 

msee L ibcontent out file) - 

pus DEeontent MD count, l); 

new line(Libcontent); 

tous) ind. -lrbESeount loop 
pureenetbi5éontent, brb"wec(J)-all); 


end loop; 
end irf; 
end if; 


close (Libcontent); 
-- End default generated code 
-- Begin generated code for Connection 
Connect Panel (TAE.Tae Wpt.WPT INVISIBLE); 
Panel library.Connect, Panel (TAE.Tae Wpt.WPT VISIBLE); 


-- End generated code for Connection 
- -ADDED 
TAE.Tae Wpt.Wpt PanelReset(Info.Panel Id); 


end ok Event; 
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procedure cancel, Event 
( Info : in TAE.Tae Wpt.Event Context Ptr ) is 


--| PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 
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Value : array (1..1) of String (l..TAE.Tae "Tadecsne d TRI mM rb 
Count : TAB Tacint, 


begin -- cancel_Event 
-- Begin default generated code 
TAE.Tae Vm.Vm Extract Count (Info Parm PEPE OUN 
if Count — 0 then 
TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm_ PERAL Val line 
endet. 
-- End default generated code 
-- Begin generated code for Connection 
Connect Panel (TAE.Tae Wpt.WPT INVISIBLE); 
Panel library.Connect Panel (TAE.Tae Wpt.WPT VISIBLE); 
-- End generated code for Connection 
--ADDED 
TAE.Tae Wpt.Wpt PanelReset(Info.Panel Id); 


end cancel Event; 


-- end EVENT HANDLERS 
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procedure Dispatch Item 
( User Context, Ptr : in TAE.Tae Wpt.Event Context Ptr ) is 


begin -- Dispatch Item 


if TAE.Tae Misc.s equal ("libname", User Context Ptr.Parm Name) then 
libname Event (User. Context Ptr); 

elsif TAE.Tae Misc.s equal ("rulefile", User Context Ptr.Parm Name) 

then 

rulefile Event (User Context Ptr); 

elsif TAE.Tae Misc.s equal ("ok", User Context Ptr.Parm Name) then 
ok Event (User Context Ptr); 

elsif TAE.Tae Misc.s equal ("cancel", User Context Ptr.Parm Name) then 
cancel Event (User Context, Ptr); 

end if; 


end Dispatch Item; 


end Panel. libadd; 
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E. PANEL LBDELETE PACKAGE 


1. PAN LBDELETE S.A 


EE PAR Plus Code Generator version V5.1 


-- *** File : pan lbdelete s.a 
== *** Generated : May 21 16:12:31 1992 
-- *** Revised by : Dogan Ozdemir 


Ck e de de de de ce ck ce ce ck oce cde ce cde ce ce ce e ce ce e de cic Kee e A A A e e A A A A Kee kee ke eee ee Ee eR ee ee ee cde eK KK 
* 

-- * Panel_lbdelete -- Package SPEC 
* 


e A A A de e A A A ck A A A A A ce ce cde ck A AA ce A A A A A A e cde ck A A A A AA A A A A de ce ce ce ck ce ceo ce de de ck AA A A de e eK 


path TAE; 
with X_Windows; 


package Panel_lbdelete 1s 


--| PURPOSE: 

--| This package encapsulates the TAE Plus panel:  lbdelete 

--| These subprograms enable panel initialization, creation, destruction, 
--| and event dispatching. For more advanced manipulation of the panel 
--| using the TAE package, the panel's Event, Context (Info) is provided. 
--| It includes the Target and View (available after initialization) 

--| and the Panel. Id (available after creation). 


--| REGENERATED: 

--| The following Workbench operations will cause regeneration of this 
--| file: 

--| The panel's name is changed (not title) 

--| For panel: 


E- lbdelete 

| 
uro . TAE.Tae Wpt.Event Context Ptr; -- panel information 
-- Initialize Panel -- Subprogram SPEC 
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procedure Initialize Panel 


( Collection. Read -- TAE Collection read from 
in TAE Tae Co.Collection Per ); -- resource file 
--| PURPOSE: 


--| This procedure initializes the Info.Target and Info.View for this 
panel 
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--| EXCEPTIONS: 

--| TAE.UNINITIALIZED PTR is raised if CollectucnsRead not Iinitiliall 2m 
--| TAE.Tae Co.NO SUCH MEMBER is raised if the panel is not in 

--| Collection. Read 
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procedure Create Panel 
( Panel. State -- Flags sent to Wpt NewPanel. 
in TAE.Tae Wpt.Wpt Flags 
:z TAE.Tae Wpt.WPT PREFERRED; 


Relative Window -- Panel origin is offset from 
in X Windows.Window -- this X Window. Null_Window 
:2 X Windows.Null. Window ); -- uses the root window. 


--| PURPOSE: 

--| This procedure creates this panel object in the specified Panel State 
--| and stores the panel Id in Info.Panel Id. 

Es 

--| EXCEPTIONS: 

--| TAE.UNINITIALIZED PTR is raised if the panel is not initialized 
--| TAE.TAE FAIL is raised if the panel could not be created 
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procedure Connect_Panel 
( Panel, State | 
in TAE.Tae Wpt.Wpt Flags | 

:- TAE.Tae Wpt.WPT PREFERRED; 


Relative. Window -- Panel origin is offset from 
in X Windows.Window -- this X Window. Null Window 
:z X Windows.Null. Window ); -- uses the root window. 
--| PURPOSE: 


--| If this panel doesn't exist, this procedure creates this panel object 
222 in the specifiec Panel State and stores the panel Id in 

EM Info.Panel. Id. 

--| If this panel does exist, it is set to the specified Panel, State. 
SH In this case, Relative_Window is ignored. 


=-=- | EX ERETONS: 
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--| TAE.UNINITIALIZED PTR is raised from Create Panel if the panel is 
--| uorMISmElalized 

--| TAE.TAE FAIL is raised from Create Panel if the panel could not be 
-- |] created 

--| TAE.Tae Wpt.BAD STATE is raised if the panel exists and the 

--| Panel State is an invalid state 


. ùe ù 9 ù ù 0% 9 9 9? ù 0 9 €? h O O € @ @ 9 0 9*9 9*9 > 9 G @ O O O 9*9 9 ^» ^*^ h à 6 O ^*^ O O ‘G ‘O €? G €*? 9? @© 9? 9? $9 9 * 9 9 +. 9? ^? © @ @ w@ @ ^$ 


procedure Destroy Panel; 
--| PURPOSE: 


--| This procedure erases a panel from the screen and de-allocates the 
--| associated panel object (not the target and view). 


--| EXCEPTIONS: 
--| TAE.Tae Wpt.BAD PANEL ID is raised if Info.Panel Id is an invalid 


--| NOTES: 
--| Info.Panel. Id is set to TAE.NULL PANEL ID, and should not referenced 
--| in any Wpt call until it is created again. 
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procedure Dispatch, Item 


( User Context Ptr -- Wpt Event Context for a PARM 
in TAE.Tae Wpt.Event Context Ptr ); -- event. 
--| PURPOSE: 


--| This procedure calls the Event Handler specified by User Context Ptr 


= 
SINE SEE PTIONS: 
--| Application-specific 


end Panel_lbdelete; 
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2. PAN LBDELETE B.A 


-- *** TAE Plusocode Generator version VS 
== *** File : pan_lbdelete_b.a 

-- *** Generated : May 21 16:12:31 1992 

-- *** Revised by : Dogan Ozdemir 


POM ck oce e ode ck ode oe cc ode oc oe oic de de oe oie ode ode ode oe e oce ode ode ode cic cic oie Ke KKK KKK KKK KKK ok c oc ce coke oe ce De e oe oce ck ce ck e oe de ok ok oc oc oe cook 
AS 

-- X Panel lbdelete -- Package BODY 
* 


*k se ck ck cde de de e ole oe oe oe oie oc ose e oie ode oe oe oe ose oie ode ose oe oe oe oe ode e ose ose oie oce cie oe oie ode oe ode ode e coke oc oe de ce cie A cie cic oe de Ke KKK KKK KK KKK 


with TAE; use TAE; 
with V posscTO- 

with Global; 

use Global, Text, IO; 


-- One "with" statement for each connected panel. 
with Panel, library; 
with Panel. ldelwarn; 


package body Panel lbdelete is 


--| NOTES: 

--| For each parameter that you have defined to be "event-generating" in 
--| this panel, there is an event handler procedure below. Each handler 
--| has a name that is a concatenation of the parameter name and " Event". 
--| Add application-dependent logic to each event handler. (As generated 
--| by the WorkBench, each event handler simply logs the occurrence of 
--| the event.) 


--| You may want to flag any changes you make to this file so that if 
--| you regenerate this file, you can more easily cut and paste your 
--| modifications back in. 


--| REGENERATED: 

--| The following WorkBench operations will cause regeneration of this 
== | (Eide: 

E The panel's name is changed (not title) 

--| For panel: 

cc lbdelete 


--| The following WorkBench operations will also cause regeneration: 
sex An item is deleted 

=> A new item is added to this panel 

zd An item's name is changed (not title) 

zz An item's data type is changed 

e| An item's generates events flag is changed 

== | An item's valids changed (if item is type string and connected) 
| An item's connection information changed 

--| For the panel items: 

zu selection, cancel, ok 
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- -ADDED 
package integer inout is new Text IO.integer io(integer); 
use integer inout; 
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procedure Initialize_Panel 
m ollectcion Read 
Ine TAE Taea Co. Collection_Ptr ) is 


begin -- Initialize_Panel 


nto = new TAE MaetWpt Event_Cortext; 

Miro. Collection := Collection Read; 

TAE.Tae Co.Co Find (Info.Collection, "lbdelete v", Info.View); 
MMS O ccSELIDdOMIhnto.Collection, "lbdelete t', Info.Target); 


exception 


when TAE.UNINITIALIZED.PTR => 
Text IO.Put Line ("Panel lbdelete.Initialize Panel: " 
c= Colloeeton Read not initialized."); 
raise; 


when TAE.Tae Co.NO SUCH, MEMBER => 
Text IO.Put Line ("Panel. lbdelete.Initialize. Panel: 0 
I TE H Collection."); 
raise; 


end Initialize. Panel; 
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procedure Create Panel 
( Panel. State 
in TAE.Tae Wpt.Wpt Flags 
:- TAE.Tae Wpt.WPT PREFERRED; 


Relative Window 


in X Windows.Window 
: X Windows.Null. Window ) is 
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begin -- Create Panel 


if Info.Panel_Id = Tae Null Panel@id@then 
TAE.Tae Wpt.Wpt NewPanel 


( Dummy n 

Data Vm => Info, Target, 

View_Vm z> Info. Vlew 

Relative_Window z» Relative Window, 

User Context => Into, 

Flags => Panel_State, 

Panel Id => Info Pane =d 
else 


Text IO.Put Line ("Panel (lbdelete) is already displayed."); 
enc 


exception 


when TAE.UNINITIALIZED_PTR => 
Text IO.Put Line ("Panel lbdelete.Create Panel: : 
& "Panel was not initialized prior to creation."); 
raise; 


when TAE.TAE FAIL => 
Text IO.Put Line ("Panel lbdelete.Create Panel: " 
& "Panel could not be created."); 
raise; 


end Create Panel; 
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procedure Connect Panel 
( Panel State 1 
in TAE.Tae Wpt.Wpt Flags 
:- TAE.Tae Wpt.WPT PREFERRED; 





Relative Window 
in X Windows.Window 
:z X Windows.Null Window ) is 


- ADDED 

Libcontent < file TEPE; 
len “integer =T, 
Dummy : Boolean; 
begin -- Connect_Panel 
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res Panel Id = Tae.Null Panel_ld then 
Create Panel 


( Relative Window -» Relative Window, 
Panel State -» Panel State ); 
else 
TAE.Tae Wpt.Wpt SetPanelState (Info.Panel Id, Panel State); 
-- ADDED 


Seen bt oceontent, mode=>in file, name=>"libcoentent") ;: 
Gece ecentent, lib count, 1)” 
skip_line(Libcontent) ; 
Pomel insets. laibecount loop 
der Mine(Libcontent, lib vec(I).all, len); 
Skipene (LibcContent):; 
ena loop; 


mean. tac Wpt .wpt_SetStringConstraints(Info.Panel_Id, "selection", taeint(li 
Beeount), lib vec); 
Dummy:zTAE.Tae Wpt.Wpt Pending; 
end if; 
exception 
when TAE.Tae Wpt.BAD STATE => 
Text LO. Put Line ("Panel lbdelete.Connect, Panel; " 
& "Invalid panel state."); 


raise; 


end Connect Panel; 
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procedure Destroy Panel is 


begin -- Destroy Panel 
TAE.Tae Wpt.Wpt PanelErase(Info.Panel Id); 
exception 
when TAE.Tae Wpt.BAD PANEL ID => 
Text IO.Put Line ("Panel lbdelete.Destroy Panel: " 
Sele emreane |. Ld is an invalid id."); 


raise; 


when TAE.Tae Wpt.ERASE NULL PANEL => 
-- This panel has not been created yet, or has already been destroyed. 


169 


-- Trap this exception and do nothing. 
rires 


end Destroy Panel; 
e de de de de de de de de de de de de de de e e de e o HHHH HHHH HHHH HHHH 


-- begin EVENT HANDLERS 
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procedure selection_Event 
( Info : in TAE.Tae_ _Wpt.Event_Context PEr is 


--| PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


Value : array (1..1) of String (1l..TAE.Tae Taecont.STRINGSIZEUE 
Count : TAE.Taeint; 


begin -- selection, Event 


-- Begin default generated code 
TAE.Tae Vm.Vm Extract Count (Into. Parmibetr.Colnela 
lf Count » 0 then 
TAE.Tae Vm.Vm- Extract SVAL (Info.Parm Ptr, "vogue ta 
else 
null. 
end wt: 
--ADDED 
119_to_deletedl....10)5=Value (IA 


-- End default generated code 


end selection Event; 
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procedure cancel. Event 
( Info : in TAE.Tae Wpt.Event, Context Ptr ) is 
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--| PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


Pode array (1721) Of String (1..TAE.Tae_Taeconf.STRINGSIZE) ; 
counts: TAE. .Taelnt:; 


begin -- cancel_Event 


-- Begin default generated code 


NM E raeSvmevm Extract Counc Info. Parm Ptr, Count); 
we ounte ~ Orthen 
EESTaewmvme9Extract-SVAL (Info.Parm Ptr, 1, Value(1)); 
else 
mul. 
end if; 


—-— — 


-- End default generated code 


-- Begin generated code for Connection 


Connect Panel (TAE.Tae Wpt.WPT INVISIBLE); 
Panel library.Connect Panel (TAE.Tae Wpt.WPT VISIBLE); 


-- End generated code for Connection 
--ADDED 
TAE.Tae Wpt.Wpt PanelReset(Info.Panel Id); 


end cancel. Event; 
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procedure ok Event 
( Info : in TAE.Tae Wpt.Event Context Ptr ) is 


C PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


MelwWe Tarray (1.1) of String (1..TAE.Tae_Taeconf .STRINGSIZE) ; 
Counte: TAE Taeint: 


begin -- ok_Event 
-- Begin default generated code 


TOE mM NM Extract Count (Info.Parm Ptr, Count) ; 
iE Count > 0 then 
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TAE.Tae Vm.Vm Extract SVAL (Info.Parm. Ptr, jo Value gs" 
else 

nubi 
end if; 


-- End default generated code 


-- Begin generated code for Connection 


Connect Panel (TAE.Tae Wpt.WPT INVISIBLE); 
Panel ldelwarn.Connect Panel (TAE.Tae Wpt.WPT VISIBLE); 


-- End generated code for Connection 
== ADDED 
TAE.Tae_Wpt .Wpt_PanelReset (Info.Panel_ld); 


end ok Event; 
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procedure Dispatch, Item 
( User _ Context Pte: in TAE.Tae_Wpt . Event Contexteeens s 


begin -- Dispatch_Item 


if TAE.Tae Misc.s equal ("selection", User Context Ptr.Parm Name) then 
selection Event (User Context Ptr); 

elsif TAE.Tae Misc.s equal ("cancel", User Context Ptr.Parm Name) then 
cancel Event (User Context Ptr); 

elsif TAE.Tae Misc.s equal ("ok", User Context Ptr.Parm Name) then 
ok Event (User Context Ptr); 

end if; 


end Dispatch_Item; 


end Panel_lbdelete; 
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F. PANEL LDELWARN PACKAGE 


1. PAN LDELWARN S.A 


-- *** "TAE Plus Code Generator version V5.1 
-- *** File : pan_ldelwarn_s.a 

Meme Generated +: May 21 16:12:31 1992 

-- *** Revised by : Dogan Ozdemir 


RK KEKE KEKE KKK KKK EE KKK KKK KK KKK oe oe ose ce OX oe oe o o co ce oe CK KKK Ke 


E Panel_ldelwarn ~ ee Kage SPEC 


o ct h+ +X X X X X X X X X X X X X X XY X X X X X X h X X X X X X X X X X XY OK CK oe ode E e e + 


package Panel ldelwarn is 


EST PURPOSE: 

--| This package encapsulates the TAE Plus panel:  ldelwarn 

--| These subprograms enable panel initialization, creation, destruction, 
--] and event dispatching. For more advanced manipulation of the panel 
Ll -:sugsthe TANE package, the panel's Event Context (Info) is provided. 
-erucludes the Target and View (available after initialization) 

--| and the Panel_Id (available after creation). 


=-| REGENERATED: 

--| The following Workbench operations will cause regeneration of this 
ei file: 

==] The panel's name is changed (not title) 

--| For panel: 


22 ldelwarn 
Pree. TAL .Tac Wpt.Event Context. Ptr; -- panel information 
— Inscr ze-Panel -- Subprogram SPEC 
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procedure Initialize. Panel 


( Collection. Read -- TAE Collection read from 
ine Dale _ Co e0 ection Per ); -- resource file 
--| PURPOSE: 


--| This procedure initializes the Info.Target and Info.View for this 
panel 
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--| EXCEPTIONS: 

--| TAE.UNINITIALIZED_ PTR is raised 1f Collection Read not interal12ee 
--| TAE.Tae Co.NO SUCH MEMBER is raised if the panel Meson 

--| Collection Read 
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procedure Create Panel 
( Panel State -- Flags sent to Wpt NewPanel. 
in TAE.Tae Wpt.Wpt Flags 
:- TAE.Tae Wpt.WPT PREFERRED; 


Relative Window -- Panel origin is offset from 
in X Windows.Window -- this X Window. Null Window 
:z X Windows.Null. Window ); -- uses the root window. 
-- | PURPOSE: 


--| This procedure creates this panel object in the specified Panel State 
--| and stores the panel Id in Info.Panel Id. 

zal 

--| EXCEPTIONS: 

--| TAE.UNINITIALIZED PTR is raised if the panel is not initialized 
--| TAE.TAE FAIL is raised if the panel could not be created 
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procedure Connect_Panel 
( Panel State 
in TAE.Tae Wpt.Wpt Flags 
:— TAE.Tae WptowWPT-PREEEREEDD: 


1 
1 
] 
| 


Relative_Window -- Panel origin 1s offset from 
in X_ Windows .Window -- this X Window. Null Window 
:- X Windows.Null.Window ); -- uses the root window. | 
| 
--| PURPOSE: 


--| If this panel doesn't exist, this procedure creates this panel object 
== in the specifiec Panel_State and stores the panel Id in 

= Info.Panel_Id. 

--| If this panel does exist, it is set to the specified Panel, State. 
==) In this case, Relative Window is ignored. 


=- || EXCEPTIONS: 
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--| TAE.UNINITIALIZED PTR is raised from Create Panel if the panel is 
--| not initialized 

--| TAE.TAE FAIL is raised from Create Panel if the panel could not be 
--| created 

--| TAE.Tae Wpt.BAD STATE is raised if the panel exists and the 

--| Panel State is an invalid state 
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procedure Destroy Panel; 


--| PURPOSE: 
--| This procedure erases a panel from the screen and de-allocates the 
--| associated panel object (not the target and view). 


--| EXCEPTIONS: 

--| TAE.Tae Wpt.BAD PANEL ID is raised if Info.Panel Id is an invalid 
--| id. 

--| NOTES: 


--| Info.Panel Id is set to TAE.NULL. PANEL, ID, and should not referenced 
--| in any Wpt call until it is created again. 
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procedure Dispatch Item 


mUSeSrecontext Ptr -- Wpt Event Context for a PARM 
in TAE.Tae Wpt.Event Context Ptr ); -- event. 
--| PURPOSE: 


TOTS procedure calls the Event Handler specified by User Context, Ptr 


E 
--| EXCEPTIONS: 
--| Application-specific 


end Panel ldelwarn; 
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2. PAN LDELWARN B.A 


-- *** TAE Plus Code Generator version V5.1 
-- Se Pile : pan, ldelwarn b.a 

-- *** Generated : May 21 16:12:31 1992 

-- *** Revised by : Dogan Ozdemir 


— 7k ck 3 ck ck ce ck ck ck ck ce ce ode ce ck ck ck ce ook e ck ck e ck ce ck e ke ck e oe ck ck ce ck e ck ck ck ode ck ck ck oce ck ck ck ck ck ok ck o ce oe oe ck e ck ok ck oe ck e ck A e 


-- * Panel ldelwarn -- Package BODY 


eee EEE EEE EEE EE ETE TEE EE EEE EEES ETE TEE EEE TEE ETE EEE TEE EEE EEE 


with TAE; use TAE; 
with Texte I0; 
with Global; 
use Global,Text IO; 


-- One "with" statement for each connected panel. 
with Panel library; 

with Panel. lbselect; 

with Panel. lbdelete; 


package body Panel ldelwarn is 


--| NOTES: 

--| For each parameter that you have defined to be "event-generating" in 
--| this panel, there is an event handler procedure below. Each handler 
--| has a name that is a concatenation of the parameter name and " Event". 
--| Add application-dependent logic to each event handler. (As generated 
--| by the WorkBench, each event handler simply logs the occurrence of 
--| the event.) 


--| You may want to flag any changes you make to this file so that if 
--| you regenerate this file, you can more easily cut and paste your 
--| modifications back in. 


-- | REGENERATED: 

--| The following WorkBench operations will cause regeneration of this 
--| file: 

e The panel's name is changed (not title) 

--| For panel: 

cM ldelwarn 


--| The following WorkBench operations will also cause regeneration: 
==] An item is deleted 

3| A new item is added to this panel 

item's name is changed (not title) 

item's data type is changed 

item's generates events flag is changed 

item's valids changed (if item is type string and connected) 
item's connection information changed 

--| For the panel items: 


55555 
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--| ok, cancel 


--ADDED 
package integer inout is new Text IO.integer io(integer); 
use integer inout; 
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procedure Initialize Panel 
( Collection, Read 
in TAE.Tae Co.Collection Ptr ) is 


begin -- Initialize Panel 
Nupos- new TAE.Tae Wpt.Event Context; 
Info.Collection :- Collection. Read; 


MA Tae Co.Co Find (Info.Collection, "ldelwarn. v", Info.View); 
Icaro Find (Into.Collection, "“ldelwarn_t", Info.Target); 


exception 


when TAE.UNINITIALIZED_PTR => 
Text IO.Put Line ("Panel ldelwarn.Initialize Panel: " 
& "Collection Read not initialized."); 
halse; 


when TAE.Tae_Co.NO_SUCH_MEMBER => 
Text IO.Put, Line ("Panel. ldelwarn.Initialize Panel:  " 
E "(Wiew or Target) not in Collection."); 
ralse; 


end Initialize Panel; 
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procedure Create Panel 
( Panel State 
in TAE.Tae Wpt.Wpt Flags 
:z TAE.Tae Wpt.WPT PREFERRED; 


Relative Window 
in X Windows.Window 


m 


:2 ASWineows. Null Window ) ws 
begin -- Create Panel 


if Info.Panel Id - Tae.Null. Panel. Id then 
TAE.Tae Wpt.Wpt NewPanel 


( Dummy z 
Data Vm => Info. lardet; 
View_Vm => pinto. vy lowe 
Relative Window -» Relative Window, 
User. Context E 
Flags => Panel State, 
Panel_Id => Info.Panel Id )& 


else 
Text_IO.Put_Line ("Panel (ldelwarn) is already displayed."); 
end if; 


exception 


when TAB.UNINITIALIZED_PTR => 


Text_IO.Put_Line ("Panel_ldelwarn.Create Panel: i 
& "Panel was not initialized prior to creation."); 
raise; 


when TAE.TAE FAIL => 
Text IO.Put Line ("Panel ldelwarn.Create Panel: " 
& "Panel could not be created."); 
raise; 





end Create Panel; 
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procedure Connect Panel 
( Panel, State 
in TAE.Tae Wpt.Wpt Flags 
:= TAE.Tae Wpt.WPT PREFERRED; 


Relative Window 
in X Windows.Window 
:z X Windows.Null Window ) is 
begin -- Connect Panel 
if Info.Panel.Id - Tae.Null. Panel. Id then 


Create Panel 
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( Relative Window => Relative Window, 
Panel. State => Panel State ); 
else 
TAE.Tae Wpt.Wpt SetPanelState (Info.Panel Id, Panel State); 
end if; 
exception 
when TAE.Tae Wpt.BAD STATE z» 
Text IO.Put Line ("Panel ldelwarn.Connect, Panel: " 
& "Invalid panel state."); 
raise; 


End Connect. Panel; 
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procedure Destroy Panel is 
begin -- Destroy. Panel 
TAE.Tae Wpt.Wpt PanelErase(Info.Panel,. Id); 
exception 
when TAE.Tae Wpt.BAD PANEL ID z-» 
Text IO.Put Line ("Panel ldelwarn.Destroy Panel: : 
ato Pane lMita is-an invalid™@id.") ; 
raise; 
when TAE.Tae Wpt.ERASE NULL. PANEL => 
-- This panel has not been created yet, or has already been destroyed. 
-- Trap this exception and do nothing. 
maull; 
end Destroy_Panel; 


hr HHHH HHHH EL 


-- begin EVENT HANDLERS 
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procedure ok Event 
( Info : 1n TAE. Tae Wet rentacontext Pes 


--| PURPOSE: 
--| EVENT HANDLER. Insert application Specific iInremmariene 


Value : array (1..1) of String (1..TAE.Tae_Taecont .STRINGsa Za 
Count ¡"TAE Taernt- 

ADDED 

N : Integer: =15 

Dummy : Boolean; 

Libcontent : file type; 

len:integer:s1; 


begin -- ok Event 


-- Begin default generated code 
TAE.Tae Vm.Vm- Extract Count (Info-Parm-Ptr oc oun 
if Count > O then 
TAE. Tae_Vm.Vm_ExXtract SVAL (Unfo.Parmw9Ptr MS Value (10 
else 
null 
end If: 
--ADDED 
open (Libecontent, mode=>imeti lemmame=— a bconeen =): 
get (Libcontent, lib _count,1); 
global.strlen(lib_to_delete,N); 
global.system call(com&"dl "&lib to delete(1..N)); 
skip line(Libcontent); 
for I in 1. lib e ounti oop 
get_line(Libcontent,lib_vec(1) all, lenw 
skip _line( bibeertene 
if lib tco delete=lib vec(1) 2abieehen 
if IslYrpEccunt them 
Lub.vec (iS "s 
end if; 
lib count:=lib count- ile 
tor Jia I- l I coun Al eom 
get_line(Libcontent,lib_vec(J+1).all, len); 
skip line(Libcontent); 
lib_vec(J) all Sib veciJel) alle 
lib_vec(J+1) .all:=" Mes 
end loop; 
exit; 
end 1f; 
end loop; 


TAE.Tae Wpt.Wpt SetStringConstraints(Panel lbselect.Info.Panel Id,"selec 
tion",taeint(lib.count),lib. vec); 
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TAE.Tae Wpt.Wpt SetStringConstraints(Panel lbdelete.Info.Panel Id,"selec 
BNn'taernt(lib count),lib. vec); 
Dummy :-zTAE.Tae Wpt.Wpt. Pending; 


reset(Libcontent,out, file); 
pucibebsontent,lib. count,1); 
new line(Libcontent); 


Er wnect:-.(lib-count-l1) loop 
put line(Libcontent,lib vec(K).all); 
end loop; 


Sloscse( brocentent ) - 


-- End default generated code 


-- Begin generated code for Connection 


Connect Panel (TAE.Tae Wpt.WPT INVISIBLE); 
Panel library.Connect Panel (TAE.Tae Wpt.WPT VISIBLE); 


-- End generated code for Connection 


end ok, Event; 


procedure cancel, Event 
IN PFo Jn TAE.Tae Wpt.Event. Context Ptr ) is 


--| PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


Mae tartera (1.1) of String (1..TAE.Tae_Taeconf.STRINGSIZE) ; 
fount : TAE.Taeint: 


begin -- cancel_Event 


-- Begin default generated code 
TARTAS Nei xt race Count (Info.Parm Ptr, Count); 
if Count > 0 then 

TAE.Tae Vm.Vm Extract SVAL (Info.Parm Ptr, 1, Value(1)); 
else | 

null: 
endet 


-- End default generated code 
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-- Begin generated code for Connection 


Connect Panel (TAE.Tae Wpt.WPT INVISIBLE); 
Panel library.Connect Panel (TAE.Tae Wpt.WPT VISIBLE); 


-- End generated code for Connection 


end cancel Event; 


-- end EVENT HANDLERS 


-— cdo eee m m m m me me e m e mg m m m m m m m mk s m m m m ms es a n 


e 6 6 + o o e o o o o o o o o o o o o o o o o o e e e e e > o e 9 9 e e e e e o 9 9 P» * 9 9 9 9 o êe e êe © e e e e 9 9 9 9 * 9*9 9 @ 


procedure Dispatch Item 
( User Context Ptr : in TAE.Tae Wpt.Event Context Ptr ) is 
begin -- Dispatch Item 
if TAE.Tae Misc.s equal ("ok", User Context Ptr.Parm Name) then | 
ok Event (User Contex PET); | 
elsif TAE.Tae Misc.s equal ("cancel", User Context Ptr.Parm Name) then 
cancel Event (User Context Ptr); 
ends 


end Dispatch Item; 


end Panel. ldelwarn; 
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G. PANEL LBSELECT PACKAGE 


1. PAN LBSELECT S.A 


-- *** TAE Plus Code Generator version V5.1 
"k> File : pan_lbselect_s.a 

ENS * Generated : May 21 16:12:31 1992 

-- *** Revised by : Dogan Ozdemir 


Jk ^k ck ck ck ck ck ck ck ck oce ck ck ke ck ck ck ck ck ck ke ck ck ck ck ke ck ck ck ck de ck ck ck ok ck ck ck ck eoe e ck oce ck ck ook eoe ck oe e ok ok ok ck ck ck ck oe ox ox ck oc oe oto e 


-- * Panel_lbselect -- Package SPEC 


LJ d A A AA A A A A A A A A A AA A A AAA A A AAA A AA A A AAA A AA AAA A A A A A A A A A AA A KEK 


with TAE; 
with X Windows; 


package Panel, lbselect is 


--| PURPOSE: 

--| This package encapsulates the TAE Plus panel:  lbselect 

--| These subprograms enable panel initialization, creation, destruction, 
--| and event dispatching. For more advanced manipulation of the panel 
--| using the TAE package, the panel's Event, Context (Info) is provided. 
--| It includes the Target and View (available after initialization) 

--| and the Panel.Id (available after creation). 


--| REGENERATED: 

--| The following Workbench operations will cause regeneration of this 
FET le : 

E The panel's name is changed (not title) 

--| For panel: 


E lbselect 
[Mito = TAE. Tae Wpt.Event, Context. Ptr; -- panel information 
-- Initialize. Panel -- Subprogram SPEC 


procedure Initialize. Panel 


( Collection. Read -- TAE Collection read from 
im TAE. Taiemeo.Colléction Ptr ); -- resource file 
--| PURPOSE: 


==| This procedure initializes the Info.Target and Info.View for this 
panel 
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--| EXCEPTIONS: 

--| TAE.UNINITIALIZED PTR is raised if Collection Read not initialized 
--| TAE.Tae Co.NO SUCH, MEMBER is raised if the panel is not in 

--| Collection. Read 
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procedure Create Panel 
( Panel, State -- Flags sent to Wpt NewPanel. 
in TAE.Tae Wpt.Wpt Flags 
:- TAE.Tae Wpt.WPT PREFERRED; 


Relative Window -- Panel origin is offset rmi 
in X Windows.Window -- this X Window. Null Window 
¿= X Windows.Null. Window ); -- uses the root window. 
--| PURPOSE: 


--| This procedure creates this panel object in the specified Panel State 
--| and stores the panel Id in Info.Panel Id. 

M 

--| EXCEPTIONS: 

--| TAE.UNINITIALIZED PTR is raised if the panel is not initialized 
--| TAE.TAE FAIL is raised if the panel could not be created 
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procedure Connect. Panel 
( Panel State 
in TAE.Tae Wpt.Wpt Flags 
:2 TAE.Tae Wpt.WPT PREFERRED; 


Relative Window -- Panel origin is offset from 
in X Windows.Window -- this X Window. Null Window 
:- X Windows.Null Window ); -- uses the root window. 
--| PURPOSE: 


--| If this panel doesn't exist, this procedure creates this panel object 

== in the specifiec Panel_State and stores the panel Id in 

I Info.Panel Id. | 
--| If this panel does exist, it is set to the specified Panel State. 
si In this case, Relative Window is ignored. 


+= | “EXCEPTIONS: 
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--| TAE.UNINITIALIZED PTR is raised from Create Panel if the panel is 
--| not initialized 

--| TAE.TAE FAIL is raised from Create Panel if the panel could not be 
--| created 

--| TAE.Tae Wpt.BAD STATE is raised if the panel exists and the 

--| Panel State is an invalid state 


procedure Destroy Panel; 
--| PURPOSE: 


--| This procedure erases a panel from the screen and de-allocates the 
--| associated panel object (not the target and view). 


--| EXCEPTIONS: 
--| TAE.Tae Wpt.BAD PANEL ID is raised if Info.Panel Id is an invalid 


--| NOTES: 
--| Info.Panel. Id is set to TAE.NULL PANEL ID, and should not referenced 
--| in any Wpt call until it is created again. 
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procedure Dispatch Item 


User tcontextiPtr -- Wpt Event Context for a PARM 
in TAE.Tae_Wpt.Event_Context_Ptr ); -- event. 
--| PURPOSE: 


--| This procedure calls the Event Handler specified by User Context Ptr 


ESI EXCEPTIONS: 
==| Application-specific 


end Panel_lbselect; 
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2. PAN LBSELECT B.A 


-- *** TAE Plus Code Generator version V5.1 
-- *** File : pan_lbselect_b.a 

-- *** Generated : May 21 16:12:31 1992 

-- *** Revised by : Dogan Ozdemir 


E 3k ck ke ce oe X X XY X X X X X X X X XY X A A Kh KK KKK KKK KKK KKK KKK KKK + X + X X X X X X+ + + + + + ++ + + + + A 


-- * Panel_lbselect =— Package 58D 


X X X X X X X X X X EEE EEE EEE EEE EEE EEE TETERA + k 


with TAE; use TAE; 
withw9becm IO. 
with Global 
use Global, Text: TTO; 


-- One "with" statement for each connected panel. 
with Panel library; 
with Panel mainmenu; 


package body Panel, lbselect is 


--| NOTES: 

--| For each parameter that you have defined to be "event-generating" in 
--| this panel, there is an event handler procedure below. Each handler 
--| has a name that is a concatenation of the parameter name and " Event". 
--| Add application-dependent logic to each event handler. (As generated 
--| by the WorkBench, each event handler simply logs the occurrence of 
--| the event.) 


--| You may want to flag any changes you make to this file so that if 
--| you regenerate this file, you can more easily cut and paste your 
--| modifications back in. 


-| REGENERATED: 

--| The following WorkBench operations will cause regeneration of this 
--| file: 

I The panel's name is changed (not title) 

--| For panel: 

zc lbselect 


--| The following WorkBench operations will also cause regeneration: 
cud An item is deleted 

zd A new item is added to this panel 

item's name is changed (not title) 

item's data type is changed 

item's generates events flag is changed 

item's valids changed (if item is type string and connected) 
item's connection information changed 

--| For the panel items: 

zx selection, cancel, ok 


55555 


186 


ur - HE ^ 4EC ss cc, n 7 


- ADDED 
Mie ¿String (1..10):= (others=>' '): 
package integer inout is new Text IO.integer io(integer); 
use integer inout; 
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procedure Initialize Panel 
( Collection, Read 
Inal AE Taes o C ollectioóon_ Ptr ) is 


begin -- Initialize_Panel 
miro = new TAE. Tae_Wpt .Event_Context; 
Intoecollection :- Collection. Read; 


IAE Tas Co. ColFinde Into:cCollection, “Ilbselect_v", Info.View); 
fata CO.CO Fina nito Collection, "lbselect_t", InfosTarget); 


exception 


when TAE.UNINITIALIZED_PTR => 
Text IO.Put Line ("Panel lbselect.Initialize Panel: " 
co Llection Read net initialized.”); 
ralse; 


nen TAB Tae Co .NO-SUCHA. MEMBER => 


Text IO.Put,. Line ("Panel. lbselect.Initialize Panel: " 
Swe Mew oor Target) not in Collection." ).; 
ralse; 


end Initialize Panel; 
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procedure Create Panel 
( Panel. State 
in TAE.Tae Wpt.Wpt Flags 
:z TAE.Tae Wpt.WPT PREFERRED; 


Relative Window 
in X Windows.Window 
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:z X Windows.Null.Window ) is 


begin -- Create Panel 


if Info.Panel. Id - Tae.Null. Panel. Id then 
TAE.Tae Wpt.Wpt NewPanel 


( Dummy o 
Data_Vm 2» Info.Targetse 
View Vm => Info.View, 
Relative Window => Relative Window, 
User Context => ELO 
Flags => Panel_State, 
Panel. Id => Info.Panel-Id € 


else 
Text IO.Put, Line ("Panel (lbselect) is already displayed."); 
end if; 


exception 


when TAE.UNEINITIALIZED_ PTR => 
Text IO.Put Line ("Panel. lbselect.Create Panel: S 
& "Panel was not initialized prior to creation."); 
raise; 


when TAE.TAE FAIL => 
Text IO.Put Line ("Panel lbselect.Create Panel: " 
& "Panel could not be created."); 
raise; 


end Create Panel; 
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procedure Connect, Panel 
( Panel, State 
in TAE.Tae Wpt.Wpt Flags 
:z TAE.Tae Wpt.WPT PREFERRED; 


Relative. Window 
in X Windows.Window 
:z X Windows.Null. Window ) is 


ADDED 

Libcontent : file_type; 
len s integer: = 
Dummy : Boolean; 
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begin -- Connect, Panel 


Et Info.Panel Id = Tae.Null Panel Tdsthen 
Create_Panel 


( Relative_Window => Relative_Window, 
Panel_State => Panel_State ); 
else 
TAE.Tae Wpt.Wpt SetPanelState (Info.Panel, Id, Panel. State); 
--ADDED 


open (Libcontent,mode=>in_file,name=>"libcontent"); 
der (Bibeontent, lib_count,1l); 
skip line(Libcontent); 
Emu Lee bie count loop 
Gove linewolbeemecnt, dab vec(I).all,leny; 
skip line (Libeontent) ; 
end loop; 


Eae Wpt.Wpt SetStringConstraints(Info.Panel Id,"selection',taeint(li 
ENcount),lib. vec); 
Dummy:zTAE.Tae Wpt.Wpt Pending; 
end if; 


exception 


dhen TAE. Tae_Wpt.BAD_STATE => 


Text_IO.Put_Line ("Panel_lbselect.Connect_Panel: " 
& "Invalid panel state."); 
raise; 


end Connect_Panel; 
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procedure Destroy Panel is 


begin -- Destroy. Panel 
TAE.Tae Wpt.Wpt PanelErase(Info.Panel Id); 
exception 
when TAE.Tae Wpt.BAD PANEL ID => 
Text IO.Put Line ("Panel lbselect.Destroy Panel: : 


tuwntewbanelerd is an invalid id."); 
raise; 
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when TAE.Tae Wpt.ERASE, NULL PANEL z» 

-- This panel has not been created yet, or has already been destroyed. 
-- Trap this exception and do nothing. 
nulls 


end Destroy_Panel; 
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-- begin EVENT HANDLERS 
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procedure selection Event 
( Info : in TAE.Tae Wpt.Event Context Ptr ) is 


==] PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


Value : array (1..1) of String (1..TAE.Tae Taeconf.STRINGSIZE); 
Count : TAE.Taeint; 


begin -- selection Event 


-- Begin default generated code 
TAE.Tae Vm.Vm Extract Count (Info Parmi PCr EC oUnI 
If Counet = Or EeNen 
TAE.Tae Vm.-Vm Extract SVAL (Inte. Parm Ptr, I ahe Dn: 
else 
null; 
end if; 
- -ADDED 
Jado (1 arene = Verret c ed 


$ 


-- End default generated code 


end selection. Event; 
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procedure cancel, Event 
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n———————— M ÀOÁeÓÀ a 


Ah m 


( Info : in TAE.Tae Wpt.Event, Context Ptr ) is 


--| PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


pones array (1..1) of String (1..TAE.Tae Taeconf.STRINGSIZE); 
Count : TAE.Taeint; 


begin -- cancel_Event 


-- Begin default generated code 


meee rae Vm.Vm Extract Count (Info.Parm Ptr, Count); 
me Count > 0 then 
TAR Tae VIS EXtractiSvAL (Info.Parm Ptr, 1, Value(l)); 
else 
muri 
end if; 


-- End default generated code 


-- Begin generated code for Connection 


Connect_Panel (TAE.Tae_Wpt.WPT_INVISIBLE); 
Panel_library.Connect_Panel (TAE.Tae_Wpt.WPT_VISIBLE); 


-- End generated code for Connection 
- -ADDED 
TAE.Tae Wpt.Wpt PanelReset(Info.Panel Id); 


end cancel. Event; 
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procedure ok Event 
( Info : in TAE.Tae Wpt.Event, Context, Ptr ) is 


--| PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


palue curl "ot String (1l..TAE.Tae Taecontf.STRINGSIZE); 
Count TAE.Taeint: 


begin -- ok Event 


-- Begin default generated code 
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TAE.Tae Vm.Vm Extract-Count (Info Parm Per. comune 
if Count > 0 then 
TAE.Tae Vm.Vm Extract SVAL (Info.Parm-Ptr, 1, wawducsw M 
else 
mui 
end if; 
- ADDED 
Library =D 


-- End default generated code 


-- Begin generated code for Connection 


Connect Panel (TAE.Tae Wpt.WPT INVISIBLE); 
Panel mainmenu.Connect Panel (TAE.Tae Wpt.WPT VISIBLE); 


-- End generated code for Connection 

- ADDED 

TAE.Tae Wpt.Wpt PanelReset(Info.Panel Id); 
end ok Event; 
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procedure Dispatch Item 
( User Context Ptr : in TAE.Tae Wpt.Event Context Ptr ) is 


begin -- Dispatch Item 


if TAE.Tae Misc.s, equal ("selection", User Context Ptr.Parm Name) then 
selection Event (User Context Ptr); 

elsif TAE.Tae Misc.s equal ("cancel", User Context Ptr.Parm Name) then 
cancel Event (User Context Ptr); 

elsif TAE.Tae Misc.s equal ("ok", User Context Ptr.Parm Name) then 
ok Event (User Context Ptr); 

end if; 


end Dispatch Item; 


end Panel lbselect; 
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H. PANEL MAINMENU PACKAGE 


L PAN MAINMENU S.A 


EE '" TAE Plus Code Generator version V5.1 


-—- *** Pile : pan, mainmenu s.a 
-- *** Generated : May 21 16:12:31 1992 
-- *** Revised by : Dogan Ozdemir 
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* 


-- * Panel_mainmenu -- Package SPEC 
* 
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with TAE; 
with X Windows; 


package Panel mainmenu is 


--| PURPOSE: 

--| This package encapsulates the TAE Plus panel:  mainmenu 

--| These subprograms enable panel initialization, creation, destruction, 
--| and event dispatching. For more advanced manipulation of the panel 


--| using the TAE package, the panel's Event Context (Info) is provided. 
--| It includes the Target and View (available after initialization) 
--| and the Panel Id (available after creation). 


EXSUIEEREGENERATED: 
--| The following Workbench operations will cause regeneration of this 


£z! The panel's name is changed (not title) 
--| For panel: 


EL mainmenu 
Mieco >: TAE.Tae Wpt.Event Context, Ptr; -- panel information 
-- Initialize Panel -- Subprogram SPEC 
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procedure Initialize Panel 


( Collection Read RE cx lescrongereadd from 
DAA Teas Co Colllection_Ptr ); -- resource file 
--| PURPOSE: 


=e liter procedure unrClializes the Info.Target and Info.View for this 
panel 
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--| EXCEPTIONS: 

--| TAE.UNINITIALIZED PTR is raised if Collection Bead not inita E a 
--| TAE.Tae Co.NO, SUCH MEMBER is raised if the panel is not in 

--| Collection Read 
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procedure Create Panel 
( Panel State -- Flags sent to Wpt NewPanel. 
in TAE.Tae Wpt.Wpt Flags 
¿= TAE.Tae_Wpt. WPT PREFERRED, 





Relative_Window -~ Panel origin is offset iron 
in X_Windows .Window -- this X Window. Null Window 
c= X Windows.Null Window ); -- uses the root window. 
--| PURPOSE: 


--| This procedure creates this panel object in the specified Panel State 
--| and stores the panel Id in Info.Panel Id. 

e| 

-= [EXC EET ONS: 

--| TAE.UNINITIALIZED PTR is raised if the panel is not initialized 
--| TAE.TAE FAIL is raised if the panel could not be created 


Del ameti di s A A A nini aini S 1000 
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( Panel. State 
in TAE.Tae Wpt.Wpt Flags 
:z TAE.Tae Wpt.WPT PREFERRED; 


| 
procedure Connect_Panel 


Relative_Window -- Panel origin is offset from 
in X_Windows.Window -- this X Window. Null Window 
:z X Windows.Null Window ); -- uses the root window. 
--| PURPOSE: 


--| If this panel doesn't exist, this procedure creates this panel object 
--| in the specifiec Panel State and stores the panel Id in 

--| Info.Panel Id. 

--| If this panel does exist, it is set to the specified Panel_State. 
Sl In this case, Relative_Window is ignored. 


-- | EACEE TIONS: 
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--| TAE.UNINITIALIZED PTR is raised from Create Panel if the panel is 
--| not initialized 

--| TAE.TAE FAIL is raised from Create Panel if the panel could not be 
--| created 

--| TAE.Tae Wpt.BAD STATE is raised if the panel exists and the 

--| Panel State is an invalid state 
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procedure Destroy Panel; 
= T PURPOSE: 
--| This procedure erases a panel from the screen and de-allocates the 


--| associated panel object (not the target and view). 


--| EXCEPTIONS: 
--| TAE.Tae Wpt.BAD PANEL ID is raised if Info.Panel Id is an invalid 


--| NOTES: 
--| Info.Panel Id is set to TAE.NULL. PANEL ID, and should not referenced 
--| in any Wpt call until it is created again. 
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procedure Dispatch, Item 


( User Context Ptr -- Wpt Event Context for a PARM 
in TAE.Tae Wpt.Event Context Ptr ); -- event. 
--| PURPOSE: 


--| This procedure calls the Event Handler specified by User Context Ptr 


E 
--| EXCEPTIONS: 
==| Application-specific 


end Panel_mainmenu; 
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2. PAN MAINMENU B.A 


-- *** TAE Plus Code Generator version V5.1 
Le : pan, mainmenu, b.a 

-- *** Generated : May 21 16:12:31 1992 

-- *** Revised by : Dogan Ozdemir 


X X XY X X X X X X X X X X X X X X X X X X XY X X X X X X X X XY XY X X X X X X X X X X X X X X X + + X X + + X + X + + ++ ++ + + + h h 
* 


-- * Panel_mainmenu -- Package BODY 
* 


X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X k+ X + + X + X h+ + + + + + + k+ + + + + + + A 


with TAE; uses 
with dextero 
with Global; 
use Text IO,Global; 


-- One "with" statement for each connected panel. 
with Panel lbselect; 

with Panel. compsel; 

with Panel. addfile; 

with Panel. keyword; 

with Panel. query; 


package body Panel mainmenu is 


=sil NOTES: 

--| For each parameter that you have defined to be "event-generating" in 
--| this panel, there is an event handler procedure below. Each handler 
--| has a name that is a concatenation of the parameter name and "_Event". 
--| Add application-dependent logic to each event handler. (As generated 
--| by the WorkBench, each event handler simply logs the occurrence of 
--| the event.) 


--| You may want to flag any changes you make to this file so that if 
--| you regenerate this file, you can more easily cut and paste your 
-=| modifications back in. 


--—ICOREGENERATEDE 

--| The following WorkBench operations will cause regeneration of this 
--| file: 

== The panel's name is changed (not title) 

-- | For panel: 

== | mainmenu 


--| The following WorkBench operations will also cause regeneration: 
== | An item is deleted | 
ms A new item is added to this panel 
zd An item's name is changed (not title) 
An item's data type is changed 
d An item's generates events flag is changed 
An item's valids changed (if item is type string and connected) 
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== | An item's connection information changed 
--| For the panel items: 


--| cancel” help, browse, component, 
--| query 
= ADDED 
Eperator file : file_type; 
type_file + ffi lem ype 5 
Beewmeteemntist ^: String(1..13) :="operator_list"; 
Eyoe list <: String MN =" type list”: 
Dummy : Boolean; 
=> Initialize_Panel -- Subprogram BODY 
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procedure Initialize Panel 
( Collection. Read 
SESIAB-Tae- Co-.Collection. Ptr ) is 


begin -- Initialize, Panel 


EHOW - new TAE.Tae-Wpt.Event Context; 
NES. Collection :=agol lection Read; 


tae Tae Co Co Find (Info.Collection, "malnmenu_v", Info.Vilew) ; 
D usuwsoscoseFEindetInfo.cCollection, "mainmenu t', Info.Target); 
exception 


when TAE.UNINITIALIZED_PTR => 
Text IO.Put Line ("Panel mainmenu.Initialize Panel: " 
(mse rection Read mot inlitialized."); 
raise; 


when TAE.Tae Co.NO SUCH, MEMBER => 
Text IO.Put Line ("Panel mainmenu.Initialize. Panel: n 
I OL Target) nor 11. Collection."); 
raise; 


end Initialize Panel; 
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procedure Create_Panel 
( Panel_State 
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in TAE.Tae Wpt.Wpt Flags 
:z TAE.Tae Wpt.WPT PREFERRED; 


Relative Window 
in X Windows.Window 
:z X Windows.Null Window ) is 


begin -- Create Panel 


if Info.Panel. Id - Tae.Null. Panel. Id then 
TAE.Tae Wpt.Wpt NewPanel 


( Dummy => "", 

Data_Vm => Info Target, 
View_Vm => Info.View, 
Relative_Window => Relative_Window, 
User_Context zog nto 
Flags => Panel. State, 
Panel Id =>. Into. Panel Id ): 

else 

Text IO.Put Line ("Panel (mainmenu) is already displayed."); 
end if; 
exception 


when TAE.UNINITIALIZED_PTR => 


Text IO.Put Line ("Panel mainmenu.Create Panel:  " 
& "Panel was not initialized prior to creation?"); 
raise; 


when TAE.TAE FAIL == 


Text_IO.Put_Line ("Panel_mainmenu.Create_Panel: " 
& “Panel could not be created."); 
raise; 


end Create Panel; 
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procedure Connect, Panel 
( Panel. State 
in TAE.Tae Wpt.Wpt Flags 
:- TAE.Tae Wpt.WPT PREFERRED; 


Relative Window 


in X Windows.Window 
¿= X Windows.Null. Window ) is 
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begin -- Connect Panel 


if Info.Panel Id - Tae.Null. Panel Id then 
Create Panel 
( Relative Window 2» Relative Window, 
Panel State Panes cate ne 
else 
TAE.Tae Wpt.Wpt SetPanelState (Info.Panel Id, Panel State); 
and if; 


exception 


when TAE.Tae_Wpt.BAD STATE => 


Text IO.Put Line ("Panel mainmenu.Connect Panel: " 
& "Invalid panel state."); 
raise; 


end Connect. Panel; 
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procedure Destroy Panel is 


begin -- Destroy Panel 
TAE.Tae Wpt.Wpt PanelErase(Info.Panel Id); 
exception 


when TAE.Tae Wpt.BAD PANEL LD => 


Text, IO.Put. Line ("Panel.mainmenu.Destroy Panel: " 
EUnf&soswbPanel-chd is an invalid 1d."); 
ralse; 


when TAE.Tae Wpt.ERASE NULL PANEL -» 

-- This panel has not been created yet, or has already been destroyed. 
-- Trap this exception and do nothing. 
mud 


end Destroy_Panel; 


SHEER HEEEEEEER HHHH HHHH HHHH HHHH HHHH HHHH 


-- begin EVENT HANDLERS 
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procedure cancel Event 
( Info ^in TABESTae WptoEvent9contextsPrTIM M 


--| PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


Value : array (1..1) of String (1. TAEMIMe- Taecont: STRINES TAN 
Count ¡TAE Tasa, 


begin -- cancel Event 


-- Begin default generated code 


TAE.Tae_Vm.Vm Extract Count ww PphovParm Ptr eeu 
VES Coune= =. 0 -Ehen 

TAE.Tae Vm.Vm Extract SVAL (Info.Parm Ptr, 1, Value(1)); 
end If; 


-- End default generated code 
-- Begin generated code for Connection 


Connect Panel (TAE.Tae Wpt.WPT INVISIBLE); 
Panel lbselect.Connect Panel (TAE.Tae Wpt.WPT VISIBLE); 
-- End generated code for Connection 


end cancel Event; 
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procedure browse Event 
( Info : 1n TAE.Tae Wpt.Event"contextEPtr') ws 


--| PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


Value : array (1..1) of String (16. TABESTae Tac contaS TR INC SI 
Count ENPTESNTGGUnt:; 


N :integer:=1; 


begin -- browse_Event 
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-- Begin default generated code 
BAESTaewan.Vm Extract Count (Info.Parm Ptr, Count); 
He Count > 0 then 
TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(l)); 
end if; 
-- End default generated code 
-- Begin generated code for Connection 


gsrlen(library,N):; 


if TAE.Tae Misc.s, equal (Value(l), "Types") then 
FEoctemmcullhcont45tlo'sigsbrarydh..N)&'* '"&'tyvssS-list"); 
lI-rtecombonents(5ybe tie typer list, tile vec,num_of_comp) ; 


TAE.Tae_Wpt .Wpt_SetStringConstraints(Panel_compsel.Info.Panel_ld, "compse 
E taeint(num of_ comp), file vec); 

Dummy :=TAE.Tae_Wpt .Wpt_Pending; 

Svstemcall('rm type list" )- 

Connect Panel (TAE.Tae Wpt.WPT INVISIBLE); 

Panel. compsel.Connect Panel (TAE.Tae Wpt.WPT VISIBLE); 


elsif TAE.Tae Misc.s equal (Value(1), "Operators") then 
svcouam call(com&"ol "&library(l..N)&" "&"operator list"); 


bist components (operator _file,operator_list,file_vec,num_of_comp) ; 


TAE.Tae Wpt.Wpt SetStringConstraints(Panel compsel.Info.Panel Id,"compse 
N:It4ernt(num of comp),file vec); 
Dummy:-TAE.Tae Wpt.Wpt Pending; 
system call("rm operator list"); 
Connect Panel (TAE.Tae Wpt.WPT INVISIBLE); 
Panel compsel.Connect Panel (TAE.Tae Wpt.WPT VISIBLE); 
end if; 
-- End generated code for Connection 


end browse Event; : 
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procedure component Event 
( Info : in TAE.Tae Wpt.Event Context Ptr ) is 


=A PURPOSE: 
E VENTARANDEE Sn sert application specific information. 


alu 5 of String (lI: .TAE.Tae-JTaecontf.SSRINGSIZE). 
Count a bab. Tacint : 
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TC -Intecen.— 


D gh 
ls file  :file type; 
file nàame:StrrHqg l1 ecc 
current “:String (1950 ochorc— M 
number Integer: 1; 
Dummy :Boolean; 

begin -- component, Event 


-- Begin default generated code 
TAE.Tae Vm.Vm- Extract Count (Into Parm PEF Counts 
if Count ~ O Chen 
TAE.Tae_Vm.Vm Extract _ SVAL (Info. Parm Ptr F Value aaa 
end if; 
-- End default generated code 
-- Begin generated code for Connection 
if TAE.Tae Misc.s equal (Value(1), "Add") then null; 
system call("pwd = directory file on 
read directory(directory file,directory file name,Directory); 
strlen(Direccor B) 





loop 
if Directory - '/* then 
current _directory (cur_dir_index) (1. 7C+l1) -=curren eee 
1) en ee 
cur dir index:-cur dir -uindexs 
er 
else 
current (C) :=Directory (I); 
(cq 
end if; 
I:sI-*41; 
1f I=D+1 then exit; 
end if; 
end loop; 
current_directory(cur_d1r_1ndex) (1. .C+1) current (lo MM 
1f D>27 then 
directory_array := Directory((D-26)..D); 
else 
directoryearray := Directory (127220). 
end if; 


system_call("l1s. =-Be“SBiarectory > Se se rale 
list_directory(ls_file, file_name, file_vec, number) ; 


TAE.Tae Wpt.Wpt SetStringConstraints(Panel addfile.Info.Panel Id,"selpsd 
l",taeint(number),file. vec); 


TAE.Tae Wpt.Wpt SetStringConstraints(Panel, addfile.Info.Panel Id,"selspe 
c",taeant (number), file vee 
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TAE.Tae Wpt.Wpt SetStringConstraints(Panel addfile.Info.Panel Id,"selbod 
y",taeint(number),file vec); 


See tac Vm. Vm octString(Panel_addfile.Info.View, "psdldirectory",1,direct 
Eu carray,TAE.Tae Vm.P UPDATE); 


TAE.Tae Wpt.Wpt ViewUpdate(Panel addfile.Info.Panel Id,"psdldirectory",P 
Ecl Caddfile.Info.View,"psdldirectory"); 


eee tacos VE. Vm_ SetString(Panel_adatile.Info.View, "specdirectory",1,direct 
Br sarray,TAE.Tae Vm.P, UPDATE); 


TAE.Tae Wpt.Wpt ViewUpdate(Panel addfile.Info.Panel, Id,"specdirectory",P 
En-usoddfile.Info.View,"specdirectory"); 


TAE.Tae Vm.Vm SetString(Panel addfile.Info.View,"bodydirectory",1l,direct 
Ory array, TTAE.Tae Vm.P UPDATE); 


TAE.Tae Wpt.Wpt ViewUpdate(Panel addfile.Info.Panel  Id,"bodydirectory",P 
ame addfile.Info.View, "bodydirectory"); 
Dummy:zTAE.Tae Wpt.Wpt Pending; 


Serena lim ls files); 
Ssvystemucall( tm direceery fale); 


Connect Panel (TAE.Tae Wpt.WPT INVISIBLE); 
Panel. addfile.Connect Panel (TAE.Tae Wpt.WPT VISIBLE); 
Component, add: TRUE; 


elsif TAE.Tae Misc.s, equal (Value(1), "Update") then null; 
Connect Panel (TAE.Tae Wpt.WPT INVISIBLE); 
Panel addfile.Connect Panel (TAE.Tae Wpt.WPT VISIBLE); 
Component, update: TRUE; 


end if; 


-- End generated code for Connection 


end component, Event; 
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procedure query Event 
(Pingo: in TAE.Tae Wpt.Event GS8Htext PtrP-*) Ts 


==| PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


203 


Value : ,array (1..1) 0f£, String slo. TABA Taca Tae cont STR O E 
Count : TAE.Taeint; 


Dummy : Boolean; 

D : Integer: =0; 
TAG :Integer ci 
number :integer:=1; 


current :Strind a 7. 580):— others == Fa 

lIsvrile-rile"types 

file name String M7) STE TT 
begin -- query_Event 


-- Begin default generated code 
TAE.Tae_Vm.Vm_ExXtract_Count (Into dParmgPtrom c oun 
if Counte 0 Chen 

TAE.Tae Vm.Vm Extract SVAL (Info.Parm Ptr, 1, Value(1)); 
ende 


-- End default generated code 


-- Begin generated code for Connection 

if TAE.Tae Misc.s equal (Value(1), "Keyword") then 
Connect Panel (TAE.Tae Wpt.WPT INVISIBLE); 
Panel keyword.Connect Panel (TAE.Tae Wpt.WPT VISIBLE); 


elsif TAE.Tae Misc.s, equal (Value(1), "PSDL") then 
strlen (path: De: 
D1rE GESTA E LA 





Toop 
WD rectory (F= melon 
current_directory(cur_dir_indewl. .C+1) cur nen MM 
DNE 
cur dir index:scurwdrrwrndexsts 
Cra Ls 
else 
current (C) :=Directery (1); 
GC. =Ge 1 
ends ai 
= hie 
LEST =D+1 then exit: 
end if; 
end loop; 


current_directory(cur_dir_ index) (1..¢+l)) :=currene (1) c MM 
if D>27 then | 
directory array :- LbasBsctobu D-20247 | 
else 
directory_arraye:= Directoral T 
end 1f; 


system call("ls -F "&Directory(1..D)&*' » *"&"Is file"); 
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Icedirectory(ls file,file name,fiNMleSvecoinumber)* 


TAE.Tae Wpt.Wpt SetStringConstraints(Panel, query.Info.Panel Id,"psdlsele 
ct",taeint(number),file. vec); 


TAE.Tae_Vm.Vm_SetString(Panel_query.Info.View, "directorylabel",1,directo 
i marray,TAE.Tae Vm.P UPDATE); 


TAE.Tae Wpt.Wpt ViewUpdate(Panel query.Info.Panel Id,"directorylabel",Pa 
mel query.Info.View, “directorylabel") ; 

Dummy :=TAE.Tae_Wpt .Wpt_Pending; 

avecconmeail( tm ls file"); 


connect Panel (TAE.Tae Wpt.WPT INVISIBLE); 
Panel query.Connect Panel (TAE.Tae Wpt.WPT VISIBLE); 


end if; 


-- End generated code for Connection 
end query Event; 


a enema VENT HANDLERS 
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procedure Dispatch Item 
( User Context Ptr : in TAE.Tae Wpt.Event Context Ptr ) is 


begin -- Dispatch, Item 


BINAE Tae-MisC.s equal ("'cancel", User Context Ptr.Parm Name) then 
cancel Event (User. Context Ptr); 

elslif TAE.Tae Misc.s equal ("browse", User Context Ptr.Parm Name) then 
browse Event (User Context Ptr); 

elsif TAE.Tae Misc.s equal ("component", User Context Ptr.Parm Name) 

then 

component Event (User Context Ptr); 

elsif TAE.Tae Misc.s equal ("query", User Context Ptr.Parm Name) then 
query Event (User Context Ptr); 

end if; 


endoDispatch Item; 


end Panel mainmenu; 
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L | PANEL ADDFILE PACKAGE 


I. PAN ADDFILE S.A 


-- *** 'lAE Plus Code Generator version V5.l 


-- *** File : pan, addfile s.a 
-- *** Generated 4: : Mave2] Lo. Ze 1992 
-- *** Revised by : Dogan Ozdemir 


HR RR AA AA AAA A AA AA RA A A A A AA AAA A A A A A AA RA A A A A ccc ---c- e e 
* 

== E Panel_addfile -- Package SPEC 

* 


i i i i Gl: l&dc&& A A A A A AA AAA AAA A AA AA AA A A clc. 242-4 Ae A 


with PAE, 
with X_Windows; 


package Panel_addfile is 


--| PURPOSE: 

--| This package encapsulates the TAE Plus panel:  addfile 

--| These subprograms enable panel initialization, creation, destruction, 
--| and event dispatching. For more advanced manipulation of the panel 
--| using the TAE package, the panel's Event Context (Info) is provided. 
--| It includes the Target and View (available after initialization) 

--| and the Panel Id (available after creation). 


--| REGENERATED: 

--| The following Workbench operations will cause regeneration of this 
--| file: 

se The panel's name is changed (not title) 

--| For panel: 


= addfile 
Info : TAE.Tae Wpt.Event Context Per; -- panel information 
-- Initialize_Panel -- Subprogram SPEC 
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procedure Initialize, Panel 


( Collection, Read -- TAE Collection read from 
in TAE.@ae_Co.Collection Pen oe -- resource file 
--| PURPOSE: 


--| This procedure initializes the Info.Target and Info.View for this 
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--| EXCEPTIONS: 

--| TAE.UNINITIALIZED PTR is raised if Collection Read not initialized 
EJIIS TAE.Tae Co.NO SUCH MEMBER is raised if the panel is not in 

--| Collection. Read 
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procedure Create Panel 
( Panel. State -- Flags sent to Wpt NewPanel. 
in TAE.Tae Wpt.Wpt Flags 
:2 TAE.Tae Wpt.WPT PREFERRED; 


Relative Window -- Panel origin is offset from 
in X Windows.Window -- this X Window. Null Window 
:2 X Windows.Null Window ); -- uses the root window. 
--| PURPOSE: 


--| This procedure creates this panel object in the specified Panel State 
--| and stores the panel Id in Info.Panel Id. 


--| EXCEPTIONS: 
--| TAE.UNINITIALIZED PTR is raised 1f the panel is not initialized 
--| TAE.TAE FAIL is raised if the panel could not be created 
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procedure Connect Panel 
( Panel. State 
in TAE.Tae Wpt.Wpt Flags 
¡== "TAB. Tae WE: WBT. PREFERRED; 


Relative_Window -- Panel origin is offset from 
in X Windows.Window -- this X Window. Null Window 
:= X Windows.Null. Window ); -- uses the root window. 
==| PURPOSE* 


--| If this panel doesn't exist, this procedure creates this panel object 
zc in the specifiec Panel State and stores the panel Id in 

>] Info.Panel_ld. 

--| If this panel does exist, it is set to the specified Panel State. 
= Al In this case, Relative_Window is ignored. 
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EXCEPTIONS: 

TAE .UNINITIALIZED_PTR 1s raised from Create Panel HE checando MS 
not inicia zed 

TAE.TAE FAIL is raised from Create Panel if the panel could not be 
created 

TAE.Tae Wpt.BAD STATE is raised if the panel exists and the 
Panel State is an invalid state 
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procedure Destroy Panel; 


PURPOSE: 
This procedure erases a panel from the screen and de-allocates the 
associated panel object (not the target and view). 


EXCEPTIONS: 
TAE.Tae Wpt.BAD PANEL ID is raised if Info.Panel Id is an invalid 


NOTES: 
Info.Panel_Id is set to TAE.NULL_PANEL_ID, and should not referenced 
in any Wpt call until it is created again. 
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procedure Dispatch Item 


( 


User Context Ptr ’ -- Wpt Event Context for a PARM 
in TAE.Tae_Wpt.Event_Context_Ptr ); -- event. 
PURPOSE: 


--| This procedure calls the Event Handler specified by User Context Ptr 


EXCEPTIONS: 
Application-specific 


end Panel, addfile; 
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— — 


2. PAN ADDFILE B.A 


e** TARE Plus Code Generator version V5.1 


*** File „pan addfile Dia 
m- Generated = May 21 16:12:31 1992 
*** Revised by : Dogan Ozdemir 


X ck oe eoe oe ce de Xe eode xe Kh KKK KKK KKK KKK KK KK KK KK KKK KKK KKK KKK KKK KKK KR KKK KR KKK KK KKK KKK 
* 

* Panel_addfile -- Package BODY 

* 


* Xe oe oe ode de dee oco oe oe oe oe ode oe ode oe ode ode oe oe oe ove oce ode ove ode oe ode ode oce oce ce ode oce oe ode oe oe oe ode oce ode oe oe ode oe ode oe oe oe oe oe eoe oe oe ook e oce ode eode eoe oc 


with TAE; use TAE; 
with Text. IO; 
Eth Global; 
use Global,Text IO; 


-- One "with" statement for each connected panel. 
with Panel mainmenu; 


package body Panel addfile is 


NOTES: 

For each parameter that you have defined to be "event-generating" in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenation of the parameter name and " Event". 
Add application-dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event.) 


You may want to flag any changes you make to this file so that if 
you regenerate this file, you can more easily cut and paste your 
modifications back in. 


REGENERATED: 
The following WorkBench operations will cause regeneration of this 
fole: 
The panel's name is changed (not title) 
For panel: 
addfile 


The following WorkBench operations will also cause regeneration: 
An item is deleted 
A new item is added to this panel 
An item's name is changed (not title) 
An item's data type is changed 
An item's generates events flag is changed 
An item's valids changed (if item is type string and connected) 
An item's connection information changed 
For the panel items: 
selpsdl, selbody, selspec, cancel, 
ok, inpsadl, inspec, 2npbodv, 
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--| psdldirectory, specdirectory, bodydirectory, 


--ADDED 
psdlfile : Strumg (1..80):= (oBmmers=>" "Me 
specfile > String ols, 80) (others = WEE O 
bodyfile > Strimge (lweee) = others: e 
Orr _ string weSering (I. 830): -Wothers:=>" IE 
ls_file, error [rle SFr eine; 
file_name :"StrerDqgi]o7y e 32 e en 
error_fname = Sering IPO) == errori Meu 
number : UC eger:=1I; 
-- Initialize Panel =- Subprogram BODY 
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procedure Initialize_Panel 
( Collection_Read 
in TAE. Tae Co.Collection Pte) 1s 


begin -- Initialize Panel 


Info := new TAE.Tae Wpt Event Context, 

Info.Collection <== Collect ten Reac- 

TAE.Tae Co.Co Find (Info.collectzonoaddrilecv' Sin tom aes 
TAE.Tae Co.;Co Find (InfosColhlection;w5addfile-ct'7 Intende 


exception 


when TAE.UNINITIALIZED.PTR => 
Text IO.Put Line ("Panel addfile.Initialize Panel: Y 
& "Collection. Read not initialized."); 
raise; , 





when TAE.Tae_Co.NO_SUCH_MEMBER => 
Text IO.Put. Line ("Panel. addfile.Initialize.Panel: " 
& “(View or Target) not in Collection m 
raise; 


end Initialize Panel; 


... . € 9 o € o e o o o ê ê o o o o o o o o 9 > à 9 o o > > e > > o e e e o e o €9 > 09 > O O > > . o 9" € 9 9 06 9 O 9* O +. . o. o. e. 


210 


procedure Create Panel 
( Panel. State 
in TAE.Tae Wpt.Wpt Flags 
:z TAE.Tae Wpt.WPT PREFERRED; 


Relative Window 


in X Windows.Window 
: X Windows.Null Window ) is 


begin -- Create Panel 


Ten enr anel Id = Tae.Null Panel Id then 
TAE.Tae Wpt.Wpt NewPanel 


( Dummy zo Le 

Data Vm => Infto.TaMet, 

View_Vm o SA 

Relative_Window => Relative_Window, 

User_Context 2 CInfto, 

Flags -» Panel, State, 

Panel Id 2> Info. Panel_Id ); 
else 


Text IO.Put Line ("Panel (addfile) is already displayed."); 
end if; 


exception 


when TAE.UNINITIALIZED. PTR => 
Text IO.Put Line ("Panel addfile.Create Panel: " 
& "Panel was not initialized prior to creation."); 
raise; 


when TAE.TAE FAIL => 
Text IO.Put Line ("Panel addfile.Create Panel:  " 
& "Panel could not be created."); 
raise; ; 


end Create Panel; 
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procedure Connect Panel 
( Panel. State 
in TAE.Tae Wpt.Wpt Flags 
:z TAE.Tae Wpt.WPT PREFERRED; 
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Relative Window 
in X Windows.Window 
: X Windows.Null. Window ) is 


begin -- Connect Panel 


if Info.Panel. Id - Tae.Null. Panel. Id then 
Create Panel 
( Relative Window -» Relative Window, 
Panel State => Pane estate.) 
else 
TAE.Tae Wpt.Wpt SetPanelState (Info.Panel Id, Panel State); 
ende 


exception 
when TAE.Tae Wpt.BAD STATE => 
Text IO.Put Line ("Panel addfile.Connect Panel: n 
& "Invalid panel state."); 
raise; 


end Connect Panel; 
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procedure Destroy_Panel is 





begin -- Destroy_Panel 
TAE.Tae Wpt.Wpt PanelErase(Info.Panel Id); 
exception 


when TAE.Tae Wpt.BAD PANEL ID -» 
Text IO.Put Line ("Panel addfile.Destroy Panel:  " 
& "Info.Panel Id is an invalid Tac) 
raise; 


when TAE.Tae Wpt.ERASE NULL PANEL => 
-- This panel has not been created yet, or has already been destroyed. 
-- Trap this exception and do nothing. 


Hu 


end Destroy Panel; 
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-- begin EVENT HANDLERS 
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procedure selpsdl. Event 
auro in TAE.Tae Wpt-Event Context Ptr ) is 


ES PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


--| NOTES: This procedure reads the selected item and determines if it 


E. SMpectorysorwa' psdl-file. 
Value have Ue leon oan I TAE Tae-Taeconf.STRINGSIZE); 
Cunt : TAE.Taeint; 
DNI S Pateger:=1; 
Dummy :Boolean; 
p-evecus"vestor(l..l):so(otherss- new STRING(1..80)); 


begin -- selpsdl Event 


-- Begin default generated code 
NOR TaesvVmwWm- Extract Count (Info.Parm*Ptr, Count); 
teecount: > 0 then 
De Taes mM Nym Extract SVAL (Info.Parm Ptr, 1, Value(1)); 
else 
Hull; 
end if; 
--ADDED 
pcr T3552Value(l)t(l1..80);: 
parse line(psdlfile); 
strlen(psdlfile,N); 
Secren(Dimectory,M) ; 


if Is_a_directory then 
K:zN«M: 
cur dir index:-cur.dir index-41; 
CisG- Nemes etom (cur Gdireindex) (1..N) :=psdliile(1..N) ; 
for node in (N+1)..30 loop 
CGUBremwGEai rectory (cur dir index) (node) :=''; 
end cop. 
Dirree (ie) -pDrrectoryl. M)U'&Usdlfilet(l..(N-1)):; 
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if K 2 een 

direcwory arraáay := Directory ( (K-26) 9a 
else 

directory_array 
end if; 


Directory (Ir 2S 


TAE.Tae_Vm. Vm SetString(Info.View,"psdldirectory i, L directory arra DN 
Tae Vm.P UPDATE); 


TAE.Tae Wpt.Wpt ViewUpdate(Info.Panel, Id, "psdldirectory",Info.View, "psdl 
directory an. 


TAE.Tae_Vm.Vm_SetString(Info.View, "specdirectory",1,directory array, 7s. 
Tae Vm.P UPDATE); 


TAE.Tae Wpt.Wpt ViewUpdate(Info.Panel Id,"specdirectory",Info.View," "spec 
directory"); 


TAE.Tae Vm.Vm SetString(Info.View4"bodydirectory",l,directory array EDEN 
Tae Vm.P UPDATE); 


TAE.Tae Wpt.Wpt ViewUpdate(Info.Panel Id,"bodydirectory",Info.View, "body 
directory"), 


system_call("ls -E "&Directory(l1..K)]&" > "&nls file: 
list directory(ls file,file name,file vec,number); 


TAE.Tae_Wpt .Wpt_SetStringConstraints (Info.Panel_Id, “selpsdl",taeint (numb 
er),file vec); 


TAE.Tae_Wpt .Wpt_SetStringConstraints(Info.Panel_Id, “selspec", taeint (numb 
er), file vec): 


TAE.Tae_Wpt .Wpt_SetStringConstraints(Info.Panel_Id, “selbody", taeint (numb 
er),file vec); 

Dummy:-zTAE.Tae Wpt.Wpt Pending; 

system call("rm ls file"); 

Is a directory:-zFALSE; 


elsif Upper directory then 
strlen(Current_ director? (Ur dir indexi IE 
for drot in (M-SF m S 0S Cop 
Directory drot: = E: 
end loop; 


if (M-S)»27 then 

directory array := Directory (M SEZ (MSIE 
else 

directory array := Directory E iE 
end if; 
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B Tae Vm.Vm SetString(Info.View,"psdldirectory",l,directory array,TAE. 
Tae Vm.P UPDATE); 


TAE.Tae Wpt.Wpt ViewUpdate(Info.Panel Id,"psdldirectory",Info.View,"psdl 
ESrectory"); 


mean. Tae Vm.Vm_SetString(Info.View, "specdirectory",1,directory_array,TAE. 
Tae_Vm.P_UPDATE) ; 


TAE.Tae_Wpt .Wpt_ViewUpdate(Info.Panel_Id, "specdirectory",Info.View, "spec 
EUrectory"); 


E "Tae" Vvm.Vm SetString(Info.View,"bodydirectory",l,directory array,TAE. 
Tae Vm.P. UPDATE); 


TAE.Tae Wpt.Wpt ViewUpdate(Info.Panel Id,"bodydirectory",Info.View, "body 
ETrectory"); 


eur dir index:=cur_dir_index-l; 
system call("ls -F "&Directory(1..(M-S))&" » "&"ls file"); 
Pest saitectory(ls@rile,filesname, file vec, number) ; 


TAE.Tae_Wpt .Wpt_SetStringConstraints(Info.Panel_Id, "selpsdl", taeint (numb 
Er file vec); 


TAE.Tae Wpt.Wpt SetStringConstraints(Info.Panel Id,"selspec",taeint(numb 
er),file vec); 


TAE.Tae Wpt.Wpt SetStringConstraints(Info.Panel Id,"selbody",taeint(numb 
er),file vec); 

Dummy:-zTAE.Tae Wpt.Wpt Pending; 

system call(í("rm ls file"); 

Upper directory:-zFALSE; 


else --A file name is selected 
psal vec(l).aM: =psdlrfrile; 


TAE.Tae Wpt.Wpt SetStringConstraints(Info.Panel Id,"inpsdl",1,psdl. vec); 
Dummy :zTAE.Tae Wpt.Wpt Pending; 
end if; 


-- End default generated code 


end selpsdl Event; 
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procedure selbody. Event 
( Info : in TAE.Tae Wpt.Event Context Ptr ) is 


--| PURPOSE: 
--| EVENT HANDLER. Insert application specrive  imteumac tome 


--| NOTES: This procedure reads the selected item and determines if it 


is a 

2] directory or a implementation body file. 
Value : array (1..1) of String (l..TAE.Tae Taecontf.STRINGSWZHUB 
Count >: TAE Taeint: 
N,M,K,S : a3ntegenmusie 
Dummy : Boolean; 
body_vec: s_vector(1..1):= (others=> new STRING ET TD: 

begin -- selbody_Event 


-- Begin default generated code 
TAE.Tae_Vm.Vm_Extract_Count (Info.Parm Per, Count), 
if Count => 0 them 
TAE.Tae Vm.Vm Extract, SVAL (Info.Parm Ptr, 1, Value(1)); 
else 
DIOE 
end if; 
- ADDED 
boduwtile(l1..30):z2Vadgue( 1) so 
parse line(bodyfile); 
strlen(bodyfile,N); 
strlen(Directery , Mis 


if Is-a directory then 
K:=N+M; 
cur dir index:=scur dir Indexek 
Current directory(cur dxrcrxndex) 05 1 TL E 
for node in (N-«1)..80 loop 
Currentedilrectery (curedir index )sGneda) = ae 
end loop; 
Directory (1..K) :=Directory (1...M)£ ES ode le IN 


1£ K>27 "then 

directory array ;- Drrectory (N25) RUE 
else 

directory array := Directa y (laa an 
ends 


TAE.Tae Vm.Vm SetString(Info.View,"psdldirectory",l,directory. array, TAE. 
Tae Vm.P UPDATE); 


TAE.Tae Wpt.Wpt ViewUpdate(Info.Panel Id,"psdldirectory",Info.View, "psdl 
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directory"); 


pee. Tae Vm.Vm_SetString(Info.View, “specdirectory",1,directory_array, TAE. 
Tae_Vm.P_UPDATE) ; 


TAE.Tae_Wpt .Wpt_ViewUpdate(Info.Panel_Id, “specdirectory", Info.View, “spec 
EMrectory"); 


ESXE-Tae Vm.Vm SetString(Info.View,"bodydirectory",l,directory array,TAE. 
Tae Vm.P UPDATE); 


TAE.Tae Wpt.Wpt ViewUpdate(Info.Panel Id,"bodydirectory",Info.View,"body 
Sarectory"); 


ExEnmcallo Isc-E "&Dairectory(l..K)&" - '&"ls file"); 
list directory(ls file,file name,file vec,number); 


TAE.Tae Wpt.Wpt SetStringConstraints(Info.Panel Id,"selpsdl",taeint(numb 
EF). file-vec); 


TAE.Tae Wpt.Wpt SetStringConstraints(Info.Panel Id,"selspec",taeint(numb 
Pei, tile vec); 


TAE.Tae Wpt.Wpt SetStringConstraints(Info.Panel Id,"selbody",taeint(numb 
er),file vec); 

Dummy:-zTAE.Tae Wpt.Wpt Pending; 

system call(*rm ls file") 

Is a directory:zFALSE; 


elsif Upper directory then 
Sen (Current directory (cur_dir_index),5S); 
for drct in (M-S+1)..80 loop 
Dimecrerm  erce).=' Us 
end loop; 


Pie (M—-S)>27 then 

directory array := Directory (((M-S)=26)..(M=S)); 
else 

directory array «<= Directory (1..27); 
end if; 


Tae ma. vmosetstring(Iinfo.View, "psdidirectory",1,directory_array,TAE. 
Tae_Vm.P_UPDATE) ; 


TAE.Tae Wpt.Wpt ViewUpdate(Info.Panel  Id,"psdldirectory",Info.View,"psdl 
mnrectory"'); 


fae lace Vm-eVm SseeString(info.View, “specdirectory™, 1,directory array, TAE. 
Tae Vm.P UPDATE); 


TAE.Tae Wpt.Wpt ViewUpdate(Info.Panel Id,"specdirectory",Info.View,"spec 
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director 


TAE.Tae_Vm.Vm_SetString(Info.View, "bodydirectory",1 directory lara MN 
Tae_vm. PEJUPDATE); 


TAE.Tae Wpt.Wpt ViewUpdate(Info.Panel Id," "bodydirectory",Info.View, "body 
cle I 


Gur. dL TE] 5 s CLI 
Svet em. Gal LRS EEIT CE a LN TTI 
list, directory(ls. file,file name,file vec,number); 


TAE.Tae Wpt.Wpt SetStringConstraints(Info.Panel, Id,"selpsdl",taeint(numb 
er), file vec), 


TAE.Tae Wpt.Wpt SetStringConstraints(Info.Panel Id,"selspec",taeint(numb 
er),file. vec); 


TAE.Tae Wpt.Wpt SetStringConstraints(Info.Panel, Id, "selbody",taeint (numb 
or) fud Us 

Dummy:-zTAE.Tae Wpt.Wpt Pending; 

system _call( "rm Is file" 

Upper, directory:-zFALSE; 


else 
body. vec(1).all:zbodyfile; 


TAE.Tae Wpt.Wpt SetStringConstraints(Info.Panel Id,"inbody",1,body vec); 
Dummy :-zTAE.Tae Wpt.Wpt Pending; 
end if; 


-- End default generated code 


end selbody Event; 
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procedure selspec Event 
( Info : in TAE, Tae Wpt.EvVenticon texto IS 


-— | PURPOSE 

--| EVENT HANDLER. Insert application specific information. 

= 

--| NOTES: This procedure reads the selected item and determines if it 
is a 

zs] directory or a implementation spec file. 
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— I "Qo € 


Value macro cU String rl... TAE.Tae Taeconf.STRINGSIZE); 


Gaunt : TAE.Taeint; 

N,M,K,S : integer:=1; 

Dummy : Boolean; 

Se eC >) S  Vecrome..1):= MSeners=> new STRING(1..80)); 
begin -- selspec_Event 


-- Begin default generated code 
TARO Tae VmeVm Extract Count (Info.Parm Ptr, Count); 
fowcGount > 0 then 
TAE TaeevmeVmeextrace SVAL (Info.Parm_Ptr, l1, Value(1)); 
else 
nul: 
end if; 
--ADDED 
specpe-Value(cl)t1-.80); 
parse line(specfile); 
strlen(specfile,N); 
strieniDirectory,M); 


MENTIS a directory then 

K:=N+M; 
curar index: =cuúur dir. index+1; 
Current directos (cur dimetiugex) (1..N)sg=specfile(1..N); 
för node in (N+1)]..80 loop 

Currence Adi rector (cur dir index) noda): <E 
end loop; 
Dece cer Mi): =D1irectory(l..M)£”7/*"Espectile(1l..(N-1)); 
if K>27 then 

directory array := birectory( (K-26). .K); 
else 

directory tarrtay =.= Directory (1...27); 

end if; 


Ex bac Vin. VmmSetString(Info.View, “psdidirectory",1,directory_array,TAE. 
Tae Vm.P UPDATE); 


TAE.Tae Wpt.Wpt ViewUpdate(Info.Panel. Id, "psdldirectory",Info.View,"psdl 
rectory“); 


eld Mmm Seestring(Infoe.View, "specdirectory",l,directory_array, TAE. 
Tae_Vm.P_UPDATE) ; 


TAE.Tae_Wpt .Wpt_ViewUpdate(Info.Panel_Id, “specdirectory", Info.View, "spec 
En rectory"); 


ESSE mwmesetstrring(Info.Vrew,"bodydrrectory",l,directory. array, TAE. 
Tae Vm.P UPDATE); 
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TAE.Tae Wpt.Wpt ViewUpdate(Info.Panel-.Id,"bodydirectory" Into Vic Ub dS 
directory is 


system call("*ls -F "&Directory(l..K)&" U 
list_directory(1s_file, file _ name, file vec mumbem 


TAE.Tae_Wpt .Wpt_SetStringConstraints(Info.Panel_Id, "selpsdl",taeint (numb 
er),file vec); 


TAE.Tae Wpt.Wpt SetStringConstraints(Info.Panel, Id,"selspec",taeint(numb 
er),file,vec); 


TAE.Tae Wpt.Wpt, SetStringConstraints(Info.Panel Id,"selbody",taeint(numb 
er), file vec); 

Dummy :=TAE.Tae_Wpt .Wpt_Pending; 

system_call("“rm ls_file"); 

Is a directory:zFALSE; 


elsif Upper directory then 
stumlien (Current _ directory (cur dir index) oik 
for dret in. (M-S+1). -80 loos 
Dingctory (darot: =: >; 
end loop; 


1£ (M-S)>27 then 


directory_array Directory ( ( (M-S) -26) . . (M-S)); 


else 
directory_array ss Directory(l1..2 
end if; 


TAE.Tae_Vm.Vm_SetString(Info.View, "psdldirectory",1,directory_array, TAE. 
Tae Vm.P UPDATE); 


TAE.Tae Wpt.Wpt ViewUpdate(Info.Panel, Id, "psdldirectory",Info.View,"psdl 
direciomv k 


TAE.Tae Vm.Vm*SetString(Info.View,"specdüdrectory'w$l,directory array dn m 
Tae Vm.P. UPDATE); 


TAE.Tae Wpt.Wpt ViewUpdate(Info.Panel Id,"specdirectory",Info.View,"spec 
Gl torvi); 


TAE.Tae Vm.Vm SetString(Info.View,"bodydirectory",l,dil1rectory TI 
Tae Vm.P UPDATE); 


TAE.Tae Wpt.Wpt ViewUpdate(Info.Panel Id,"bodydirectory",Info.View, "body 
dinectory € 


cur_dir_index:=cur_dim index-1; 


system call("ls -F "&Directory(1..(M-S))&" » "&"ls file"); 
list directory(1s file,file name,file vec,number); 
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TAE.Tae Wpt.Wpt SetStringConstraints(Info.Panel Id,"selpsdl",taeint(numb 
E--file vec); 


TAE.Tae Wpt.Wpt SetStringConstraints(Info.Panel, Id,"selspec",taeint(numb 
er),file. vec); 


TAE.Tae Wpt.Wpt SetStringConstraints(Info.Panel  Id,"selbody",taeint(numb 
er),file vec); 

Dummy :zTAE.Tae Wpt.Wpt Pending; 

system call("rm 1s, file"); 

Upper, directory :-zFALSE; 


else 
epee vec(!).all:=specfile; 


ieee tac Wot. Wot SetStringConstraints(Info.Panel_Id, "inspec",1,'spec_vec) ; 
Dummy :=TAE.Tae_Wpt .Wpt_Pending; 
end if; 


-- End default generated code 


end selspec_Event; 
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procedure cancel_Event 
( Info : in TAE.Tae Wpt.Event Context Ptr ) is 


=| PURPOSE: 

--| EVENT HANDLER. Insert application specific information. 
Valle array AL eof String» (L.-APAE.Taelffaeconf .STRINGSIZE); 
Count : TAE.Taeint; 


begin -- cancel, Event 


-- Begin default generated code 
TAE Mas vm. Vm Extract Count (Info.Parm_Ptr, Count”; 
PMCOuntwew0 then 

TAE.Tae Vm.Vm Extract. SVAL (Info.Parm Ptr, 1l, Value(1)); 
else 

mu 
end Tt; 
-- End default generated code 
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-- Begin generated code for Connection 

Connect Panel (TAE.Tae Wpt.WPT INVISIBLE); 

Panel mainmenu.Connect Panel (TAE.Tae Wpt.WPT VISIBLE); 
-- End generated code for Connection 

- ADDED 

TAE.Tae Wpt.Wpt PanelReset(Info.Panel. Id); 


for Joan 1. SOUTCGEE 
Directory J): =": 
end loop; 


for K in 1.-cur dir inder loop 
Bo 30 ToS 
current directory ke - - 
end loop; 
end loop; 


for AVin ll "CoD 
directory array(A):s' '; 
end loop; 
cur dir inder -i 
end cancel_Event; 
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procedure ok, Event 
( Info : in TAE.Tae Wpt.Event Context Ptr ) is 


--| PURPOSE: 

--| EVENT HANDLER. Insert application specific information. 

--| 

--| NOTES: After all the files are selected, this procedure activates the 
seal software base and adds/updates the component. 


Value : array (1..1) of String (1..TAE. Tae _Tactont STRIDNGSEEU 
Count : TAE.Taeint; 

SS ADDED 

N,M.LbESOJSusnteger:-l^ 


begin -- ok Event 


-- Begin default generated code 
TAE.Tae.Vm.Vm Extract Count (Info-Pagm?Ptrj Count) 
lf Count"- OSPHen 
TAE.Tae Vm.Vm Extract SVAL (Info.Parm Ptr, 1, Value(1)); 
else 
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nu 
end if; 


pusparscrren(psdlfile,N); 
global.strlen(specfile,M); 
uU cPpabstrlen(bodyfile,L); 
ucbalostrlen(Drirnrectory,K); 
uUlsbalestrlen(library,J): 


if Component add then 
Glemae system call(com&"ca “&library(1..d)G es &bDirectory(1..K)&"/ 
EEDsdlfile(l..N)&" "&Directory(l..K)&"/"&specfile(l..M)&" 
Bemirectory(1..K)&"/"&bodyfile(1..L)&" > “&error_fname) ; 


global.errorstring(error file,error fname,err string); 

gubpal strlen(err string,S); 

EIOS] then 

TAE.Tae Wpt.Wpt PanelMessage(info.panel id,err string); 

S =l; 

end if; 

global.system_call("rm "&error_fname) ; 

for ESA in 1...80 loop 
Siaieestring(ESA) y=" *; 

Gnd oop; 

Componene add: =FALSE; 


elsif Component_Update then 
ucbpalesvstem-call(com&"cu "&library(1..J)&* "&DTrectory(l1..K)&"/ 
Esdlfile(1..N)&" "&Directory(l..K)&"/"&specfile(l..M)&" 
Ecurectory(l..K)&"/"&bodyfile(l..L)&" » "&error. fname); 
global.errorstring(error file,error fname,err, string); 
glekal..strlen{err_ string, S); 
if S>l then 
TAE.Tae_Wpt .Wpt_PanelMessage(info.panel_id,err_string) ; 
ec s 
end if; 
global.system call("rm "&error, fname); 
for ESU 1.280 loop 
eXrastaing(ESDJ:='" '; 
end loop; 
Component_update:=FALSE; 
end if; 


-- End default generated code 

-- Begin generated code for Connection 

Connect Panel (TAE.Tae Wpt.WPT INVISIBLE); 

Panel mainmenu.Connect Panel (TAE.Tae Wpt.WPT VISIBLE); 


-- End generated code for Connection 


TAE.Tae Wpt.Wpt PanelReset(Info.Panel, Id); 
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for X an 1-895 oD 
Directory (x): = a 
end oem 


fom eg in l..curs9drs€erTudexd c 
for P in -lo 20 BoF 
current director nee) -— mee 
end loop; 
end loop; 
tor. Amo l1..27 loop 
directory array(AA):;z' 's 
end loop; 
cur dir index: =F 


end ok Event; 


-- end EVENT HANDLERS 
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procedure Dispatch, Item 
( User Context Ptr : in TAE.Tae Wpt.Event Context Ptr ) is 


begin -- Dispatch Item 


if TAE.Tae Misc.s equal ("selpsdl", User Context Ptr.Parm Name) then 
selpsdl, Event (User Context Ptr); 
elsif TAE.Tae Misc.s equal ("selbody", User Context Ptr.Parm Name) 
then 
selbody Event (User Context Ptr); 
elsif TAE.Tae Misc.s equal ("selspec", User Context Ptr.Parm Name) 
then 
selspec Event (User, Context Ptr); 
elsif TAE.Tae Misc.s equal ("cancel", User Context Ptr.Parm Name) then 
cancel Event (User Context Ptr); 
elsif TAE.Tae Misc.s equal ("ok", User Context Ptr.Parm Name) then 
ok Event (User Context Ptr); 
end if; 


end Dispatch, Item; 


end Panel. addfile; 
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J. 


PANEL KEYWORD PACKAGE 


l. PAN KEYWORD S.A 


*** TAE Plus Code Generator version V5.1 


E" File : pan, keyword s.a 
E Generated : May 21 16:12:31 1992 
*** Revised by : Dogan Ozdemir 


* ck ce oce ce ck ce de e de ce cic ode ce ck ce ce ce de ce c ce ck ck ck ck ce ck ck ce ce ce ce ce ck ce de ce ce ck ck ce ck ck ck Oe ck ck ck ck ck Ox ce oe ck ck e Oe ck Ok ck de ce ck ce oko 
* 

s Panel keyword -- Package SPEC 

* 


* ck ck de de ode ck ce ck ck de e de ck ck de de e ck ode ce e ce ce ck ck ce ce ck ck ck cde cc ck oce de e ck ck ck ce ce ce ok ce ce oce ce de de ck ck ce ce ce ce ck ck de ce ck eoo e e t 


mach TAE; 
with X Windows; 


package Panel keyword is 


| 


PURPOSE: 

This package encapsulates the TAE Plus panel: keyword 

These subprograms enable panel initialization, creation, destruction, 
and event dispatching. For more advanced manipulation of the panel 
using the TAE package, the panel's Event_Context (Info) is provided. 
It includes the Target and View (available after initialization) 

and the Panel_Id (available after creation). 


REGENERATED: 
The following Workbench operations will cause regeneration of this 
file: 
The panel's name is changed (not title) 
For panel: 


== | keyword 
Info : TAE.Tae Wpt.Event, Context, Ptr; -- panel information 
-- Initialize. Panel -- Subprogram SPEC 
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procedure Initialize Panel 


( Collection. Read -- TAE Collection read from 
TO PTA tae. Co Collection Pta: -- resource file 
--| PURPOSE: 
--| This procedure initializes the Info.Target and Info.View for this 
--| panel . 
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--| EXCEPTIONS: 

--| TAE.UNINITIALIZED PTR is raised if Collection Read not initialized 
--| TAE.Tae,. Co.NO SUCH MEMBER is raised if the panel is not in 

--| Collection, Read 
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procedure Create_Panel 
( Panel, State -- Flags sent to Wpt NewPanel. 
in TAE.Tae Wpt.Wpt Flags 
:2 TAE.Tae Wpt.WPT PREFERRED; 


Relative Window -- Panel origin is offset from 
in X Windows.Window -- this X Window. Null Window 
:z X Windows.Null Window ); -- uses the root window. 
--| PURPOSE: 


--| This procedure creates this panel object in the specified Panel. State 
--| and stores the panel Id in Info.Panel Id. 

a 

--| EXCEPTIONS: 

--| TAE.UNINITIALIZED PTR is raised if the panel is not initialized 
--| TAE.TAE FAIL is raised if the panel could not be created 
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procedure Connect_Panel 
( Panel, State 
in TAE.Tae Wpt.Wpt Flags 
¿<= TAE. Tae Wpt .WPT PREFERRED; 





Relative_Window -- Panel origin is offset from 
in X Windows.Window -- this X Window. Null Window 
:z XoWindows.Null Windows) ; -- uses the root window. 


--| PURPOSE: 
--| If this panel doesn't exist, this procedure creates this panel object 
==] in the specifiec Panel_State and stores the panel Id in 

EI Info.Panel. Id. 

--| If this panel does exist, it is set to the specified Panel State. 

>= | In this case, Relative_Window is ignored. 


=- EXCEPTIONS: 
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--| TAE.UNINITIALIZED PTR is raised from Create Panel if the panel is 
E Hot initialized 

--| TAE.TAE_FAIL is raised from Create_Panel if the panel could not be 
--| created 

--| TAE.Tae Wpt.BAD STATE is raised if the panel exists and the 

--| Panel State is an invalid state 
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procedure Destroy Panel; 


--| PURPOSE: 

--| This procedure erases a panel from the screen and de-allocates the 

--| associated panel object (not the target and view). 

==] 

--| EXCEPTIONS: 

--| TAE.Tae Wpt.BAD PANEL ID is raised if Info.Panel Id is an invalid 
id. 

EI 

x! DOTES: 

ENUHEcTPanel-Id 1S set to TAE.NULL PANEL ID, and should not referenced 

--| in any Wpt call until it is created again. 


procedure Dispatch Item 


( User Context Ptr -- Wpt Event Context for a PARM 
in TAE.Tae Wpt.Event Context Ptr ); -- event. 
--| PURPOSE: 


--| This procedure calls the Event Handler specified by User Context Ptr 


E 
--| EXCEPTIONS: 
--| Application-specific 


end Panel keyword; 
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2. PAN KEYWORD B.A 


-- *** TAE Plus Code Genera versions J5b 


-- *** File : pan, keyword b.a 
-- *** Generated TAM Yy 2e NU 1995 
-- *** Revised by : Dogan Ozdemir 


eo X X X X X X X X X X X X X Ke AAA AA AAA AA AA A Ke Keke KKK KKK KKK KKK KK KKK KKK KK KKK KK KK KK KKK KKK KKK 


-- * Panel_keyword -- Package BODY 


keke keke keke X X X X h X X X X X X X h X X AA AA AA A AAA X X X X Ke KKK KKK KKK KK KK KKK KKK KK KKK KK KKK KKK 


with TAE; use TAE; 
With Tex CEI, 

with Global; 

use Text IO,Global; 


-- One "with" statement for each connected panel. 
with Panel. mainmenu; 
with Panel, compsel; 


package body Panel keyword is 


=- | NOTES: 

--| For each parameter that you have defined to be "event-generating" in 
--| this panel, there is an event handler procedure below. Each handler 
--| has a name that is a concatenation of the parameter name and " Event". 
--| Add application-dependent logic to each event handler. (As generated 
--| by the WorkBench, each event handler simply logs the occurrence of 
--| the event.) 


--| You may want to flag any changes you make to this file so that if 
--| you regenerate this file, you can more easily cut and paste your 
--| modifications back in. 


--| REGENERATED: 

--| The following WorkBench operations will cause regeneration of this 
--| file: 

ll The panel's name is changed (not title) 

--| For panel: 

=c keyword 


--| The following WorkBench operations will also cause regeneration: 
CN An item is deleted 

sul A new item is added to this panel 

Se An item's name is changed (not title) 

xen An item's data type is changed 

mud An item's generates events flag is changed 

== An item's valids changed (if item is type string and connected) 
m. An item's connection information changed 

--| For the panel items: 

--| kwavail, kwselected, cancel, Oke 
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EL ADDED 


kw vec "os veoctor(lwwh0l)coenersz-new STNWNO(l1..80)); 
kwadd vec —s"vector(l..l5)*-MoUMers-z- new STRENSTI..80)): 
EEN--scted “>: String (1..80):= (ethers=s' '); 

kw list mong yesbvpe: 

file name A ering lee Last 

Mmember,index : integer:=1; 

-- Initialize Panel -- Subprogram BODY 
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procedure Initialize, Panel 
( Collection, Read 
in TAE.Tae Co.Collection. Ptr ) is 


begin -- Initialize, Panel 


Mato :- new TAE.Tae Wpt.Event, Context; 

iNsocssollection :- Collection Read; 

Tae Co.Co Find (InfosCollection, ""'keywordsv", Info.View); 

ux Ngdosco"co"bPindeInto.Collectiron, 9-keyword9*t", Info-Target); 


exception 


when TAE.UNINITIALIZED PTR => 
Text IO.Put Line ("Panel keyword.Initialize Panel: M 
& "Collection Read not initialized."); 
raise; 


when TAE.Tae Co.NO,. SUCH MEMBER => 
Text IO.Put Line ("Panel keyword.Initialize Panel: œ 
cen "or Larges) not im Collection.") ; 
raise; 


end Initialize. Panel; 
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procedure Create Panel 
( Panel State 
in TAE.Tae Wpt.Wpt Flags 
S= "TAE: Talel Wpt .WPT_ PREFERRED; 
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Relative Window 
in X Windows.Window 
:z X Windows.Null Window ) is 


begin -- Create Panel 


if Info.Panel. Id - Tae.Null. Panel. Id then 
TAE.Tae Wpt.Wpt NewPanel 


( Dummy LUE 
Data, Vm => Intfo.Targets 
View Vm -» Info.View, 
Relative. Window => Relative Window, 
User_Context => MES 
Flags => Panel_State, 
Panel. Id z» Intfo.Panel*rd )- 


else 
Text IO.Put Line ("Panel (keyword) is already displayed."); 
end ir. 





exception 


when TAE.UNINITIALIZED_PTR => 
Text_IO.Put_Line ("Panel_keyword.Create_Panel: " 
& "Panel was not initialized prior to creation."); 
raise; 


when TAE.TAE_FAIL => 
Text_IO.Put_Line ("Panel_keyword.Create_Panel: 9 
& "Panel could not be created."); 
raise; 


end Create, Panel; 
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procedure Connect, Panel 
( Panel.State 
in TAE.Tae Wpt.Wpt Flags 
:- TAE.Tae Wpt.WPT PREFERRED; 


Relative. Window 


in X Windows.Window 
:= X Windows.Null. Window ) is 
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- ADDED 
Dummy : Boolean; 


ELM constant String:s"SHOME/capsy/src/software bsse/*"'; 
L 2umbedgqeresc]l- 
begin -- Connect Panel 


No Pane lcd = Tae.Null Panel Id then 
Create Panel 


( Relative Window -» Relative Window, 
Panel State => Panel State ); 
end if; 
--ADDED 


pemlen(library,L) ; 

eyeeem call(@emé"kwl "&library(1..L)&" "&"kw list"); 

list_components(kw_list, file_name, kw_vec, number) ; 

TAE.Tae Wpt.Wpt SetPanelState (Info.Panel Id, Panel State); 
TAE.Tae Wpt.Wpt SetStringConstraints(Info.Panel Id,"kwavail",taeint(numb 
EE kw vec); 

Dummy :zTAE.Tae Wpt.Wpt Pending; 

zocemecall("rm kw list"); 

exception 

rien TAR.Tac Woe. BAD _ STATE => 
Text IO.Put Line ("Panel keyword.Connect Panel: " 
& "Invalid panel state."); 


raise; 


end Connect. Panel; 
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procedure Destroy Panel is 


begin -- Destroy Panel 

TAE.Tae Wpt.Wpt PanelErase(Info.Panel Id); 
exception 

when TAE.Tae Wpt.BAD PANEL, ID -» 


Text IO.Put Line ("Panel keyword.Destroy Panel: " 
&"into-Panel_Id tsi an invalid id."); 
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raise; 
when TAE.Tae Wpt.ERASE NULL PANEL => 
-- This panel has not been created yet, or has already been destroyed. 
-- Trap this exception and do nothing. 
ntes 
end Destroy. Panel; 


or rrrrrrrrrrrrr+rrrr+ HHHH HHHH HHHH HHHH HHHH 


-- begin EVENT HANDLERS 
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procedure kwavail, Event 
( Info : in TAE.Tae Wpt.Event Context Ptr ) is 


--| PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 





Value : array (1..1) of String (l..TAE.Tàe Taecont.S TRINGSIZBME 
Count : TAE.Taeinbyg 


begin -- kwavail, Event 


-- Begin default generated code 
TAE XTae Vmovm Extract Count (Info.Parm Prr Counte), 
if Count — O then 
TAE.Tae Vmavm BExtract_SVAL (Info.Parm_Ptr, value): 
end if: 
- -ADDED 
kw_selected(1l1..80):=Value(l1)(1..80); 
kwadd_vec (index) .all:=kw_selected; 


TAE. Tae_Wpt .Wpt_SetStringConstraints(Info.Panel_Id, "kwselected”, taeint (1 
ndex),kwadd. vec); 


index:=index+1; 


-- End default generated code 


end kwavail. Event; 
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procedure cancel Event 


( Info : in TAE.Tae Wpt.Event, Context. Ptr ) is 


== PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


paluewew array (1..1) of String (1..TAE.Tae Taeconf .STRINGSIZE) ; 
Gcunt - TAE.Taeint; 


begin -- cancel Event 


-- Begin default generated code 
E Tae vm.Vm Extract. Count (Info^Parm"Ptr; Count); 
Ae ount > 0 then 
TAE.Tae Vm.Vm Extract SVAL (Info.Parm Ptr, 1l, Value(1)); 
else 
pull; 
end if; 


-- End default generated code 


-- Begin generated code for Connection 
Connect, Panel (TAE.Tae. Wpt.WPT INVISIBLE); 
Panel. mainmenu.Connect, Panel (TAE.Tae Wpt.WPT VISIBLE); 


-- End generated code for Connection 


== (BBB, 
or J in l.. (index=1) loop 

COL SO LOOP 

kwadd. vec(J).all(K):s' '; 

end loop; 
end loop; 
iundex:zl; 
kw selected(1..5)=7= * e 
TAE.Tae Wpt.Wpt PanelReset(Info.Panel Id); 


end cancel, Event; 
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procedure ok_Event 
( Info : in TAE.Tae Wpt.Event Context Ptr ) is 


--| PURPOSE: 
-=| EVENT HANDLER. Insert application specific intobmabpyone 


Value : array (1..1) of String (1..TAE.Tae_Taceont SPRINGS He - 
Count : TAE.Taeint; 


--ADDED 

N zeintegert aa 
kwquery_file: file_type; 
Dummy : Boolean; 


kwq_outfile : fLilest ype, 


begin -- ok_Event 


-- Begin default generated code 
TAE.Tae_Vm.Vm Extract Count (into. lameme Per, Counuss 
if Count, = Utne 
TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(l)); 
end if; 
--ADDED 
if kw -selected TS) SI " then 
TAE.Tae Wpt.Wpt PanelMessage(info.panel id,"NO KEYWORD IS 
SELECTED”) > 
else 


create(kwquery file,modez»out file,name-»"query file"); 


for l-in leader cl LoS 
put, Lline(kwquery file,kwadd vec(I).all); 
end loop; 


strlen library N): 
system_call (com&"kwq "&library(1..N)&" "&"query_file"&" 
"&kwquery outfile); 
delete(kwquery file); 
list, components (kwq outfile,kwquery outfile,file vec,num of, comp); 


TAE.Tae Wpt.Wpt SetStringConstraints(Panel, compsel.Info.Panel, Id,"compse 
l", taint (num of compl file veci; 

Dummy :=TAE.Tae_Wpt .Wpt_Pending; 

system_call("rm kwquery_outfile"); 


-- End default generated code 
-- Begin generated code for Connection 


— 


Connect_Panel (TAE.Tae_Wpt .WPT_INVISIBLE) ; 
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i € ool 


Panel, compsel.Connect Panel (TAE.Tae Wpt.WPT VISIBLE); 


-- End generated code for Connection 
- ADDED 


Maronite t..(index-1) loop 

POM Pini, 80 Loop 

Kweda vee(d).all(K):=" *; 

end loop; 
end loop; 
index: =1; 
Wr Sselected(1..5) := " 2 
TAE.Tae Wpt.Wpt PanelReset(Info.Panel Id); 


end if; 


end ok Event; 


-- end EVENT HANDLERS 
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procedure Dispatch, Item 
( User Context Ptr : in TAE.Tae Wpt.Event Context Ptr ) is 


begin -- Dispatch Item 


1f TAE.Tae Misc.s equal ("kwavail", User Context Ptr.Parm Name) then 
kwavail. Event (User.Context,. Ptr); 
elsif TAE.Tae Misc.s equal ("cancel", User Context, Ptr.Parm Name) then 
cancel Event (User, Context, Ptr); 
elsif TAE.Tae Misc.s equal ("ok", User, Context Ptr.Parm Name) then 
ok, Event (User. Context. Ptr); 
end if; 


end Dispatch, Item; 


end Panel. keyword; 
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K. PANEL QUERY PACKAGE 


1. PAN QUERY S.A 


-- *** TAE Plus Code Generator version V5.1 
-= SSeS ee : pan query s.a 

-- *** Generated ¡Mao 

-- *** Revised by : Dogan Ozdemir 


LE dE dE dE AAA A AAA A cll cd ccc ccc ccc A 


zo MEE Panel. query -- Package SPEC 


kak kk keke kk eke ke Keke Keke KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KK KKK eK 


with TAE; 
with X_Windows; 


package Panel_query is 


--| PURPOSE: 

--| This package encapsulates the TAE Plus panel: query 

--| These subprograms enable panel initialization, creation, destruction, 
--| and event dispatching. For more advanced manipulation of the panel 
--| using the TAE package, the panel's Event Context (Info) is provided. 
--| It includes the Target and View (available after initialization) 

--| and the Panel.Id (available after creation). 


--| REGENERATED: 

--| The following Workbench operations will cause regeneration of this 
--| file: 

224 The panel's name is changed (not title) 

--| For panel: 


zd query 
Info : TAE.Tae Wpt.Event Context Ptr; -- panel information 
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procedure Initialize Panel 


( Collection. Read -- TAE Collection read from 
in TAE.Taet Go-Col Wection = Per); -- resource file 
--| PURPOSE: 
--| This procedure initializes the Info.Target and Into.View for thie 
--| panel 


236 


ECILEXCEBDREONS : 

--| TAE.UNINITIALIZED PTR is raised if Collection Read not initialized 
--| TAE.Tae Co.NO SUCH MEMBER is raised if the panel is not in 

--| Collection, Read 
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procedure Create Panel 
( Panel State -- Flags sent to Wpt NewPanel. 
in TAE.Tae Wpt.Wpt Flags 
:- TAE.Tae Wpt.WPT PREFERRED; 


Relative Window -- Panel origin is offset from 
in X Windows.Window -- this X Window. Null Window 
:- X Windows.Null.Window ); -- uses the root window. 
--| PURPOSE: 


--| This procedure creates this panel object in the specified Panel State 
--| and stores the panel Id in Info.Panel Id. 

CN 

=| EXCEPTIONS: 

--| TAE.UNINITIALIZED_PTR is raised if the panel is not initialized 
--| TAE.TAE_FAIL is raised if the panel could not be created 
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procedure Connect, Panel 
( Panel.State 
in TAE.Tae Wpt.Wpt Flags 
:2 TAE.Tae Wpt.WPT PREFERRED; 


Relative Window -- Panel origin is offset from 
in X, Windows.Window -- this X Window. Null Window 
:2 X Windows.Null.Window ); -- uses the root window. 
--| PURPOSE: 


--| If this panel doesn't exist, this procedure creates this panel object 
=e | in the specifiec Panel State and stores the panel Id in 

zl Into. Panel Id. 

--| If this panel does exist, it is set to the specified Panel State. 
xx In this case, Relative Window is ignored. 


== | OEXCEPANNSBUS : 
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--| TAE.UNINITIALIZED PTR is raised from Create Panel if the panel is 
--| not inimeialized 

--| TAE.TAE FAIL is raised from Create Panel if the panel could not be 
--| created 

--| TAE.Tae Wpt.BAD STATE is raised 1f the panel exists and the 

--| Panel. State is an invalid state 
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procedure Destroy Panel; 


--| PURPOSE: 
--| This procedure erases a panel from the screen and de-allocates the 
--| associated panel object (not the target and view). 


--| EXCEPTIONS: 
--| TAE.Tae Wpt.BAD. PANEL ID is raised if Info.Panel Id is an invalid 


--| NOTES: 
--| Info.Panel. Id is set to TARE. NULL PANEL. ID, and should not referenced 
--| in any Wpt call until it is created again. 
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procedure Dispatch, Item 


( User Context Ptr -- Wpt Event Context for a PARM 
in TAE.Tae Wpt.Event9Ccontext Ptr)  evenbs | 
9 
--| PURPOSE: 


--| This procedure calls the Event Handler specified by User_Context_Ptr 


==! 
--| EXCEPTIONS: 
--| Application-specific 


end Panel, query; 
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2. PAN QUERY B.A 


EE "* TAE Plus Code Generator version V5.1 


= ~** File : pan_query_b.a 
E- *** Generated : May 21 16:12:31 1992 
-- *** Revised by : Dogan Ozdemir 


M tk ck ck ck ce ck e ck ck cde ck ck ce ck ck ce cde ck cie ck ce ck ck ce ce ck ck ck cde ce ck ck ce e ck ce ck ce ck cde ck ck cie cde ce oe e A De ce cde De ce De ce De ce ce ce de eoe ox 
* 

-- * Panel, query -- Package BODY 
* 


E KOH A d AAA RA A A A A A A A A A X + X X X X X X X X e e A A A e X X X X + e Re A A A A A AA A A A 


MER TAE; use TAE; 
mien Text IO; 
with Global; 
Ense Global,Text. IO; 


-- One "with" statement for each connected panel. 
with Panel mainmenu; 
with Panel compsel; 


package body Panel query is 


--| NOTES: 

--| For each parameter that you have defined to be "event-generating" in 
--| this panel, there is an event handler procedure below. Each handler 
--| has a name that is a concatenation of the parameter name and " Event". 
--| Add application-dependent logic to each event handler. (As generated 
--| by the WorkBench, each event handler simply logs the occurrence of 
the event.) 


--| You may want to flag any changes you make to this file so that if 
--| you regenerate this file, you can more easily cut and paste your 
--| modifications back in. 


--| REGENERATED: 

--| The following WorkBench operations will cause regeneration of this 
--| file: 

=-= | The panel's name is changed (not title) 

--| For panel: 

E query 


--| The following WorkBench operations will also cause regeneration: 

il An item is deleted 

== | A new item is added to this panel 

item's name is changed (not title) 

item's data type is changed 

item's generates events flag is changed 

item's valids changed (if item is type string and connected) 
itemi s Connection information changed 

--| For the panel items: 

| psdlselect, psc gm directorylabel, cancel, 


55555 
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--| ok 


ISSN 
psdlfile :String (15350): (obhers- 2M 
current  :Strsing (19589) - (othesns- sea 


ls.file —vflle-twmper 
q outEllentllestvper 
fill’ name:Straing( 12.7) ae to eect 


number :integer: =L; 
Dummy : Boolean; 
-- Initialize. Panel == Subprogram sory 


e e o o o ey 


procedure Initialize_Panel 
( Collection_Read 
in TAE.Tae_Co.Collection Ptr ) is 


begin -- Initialize_Panel 


Info := new TAE.Tae_Wpt .Event_Context; 

Info.Collection := Collection_Read; 

TAE.Tae_Co.Co Fma (Info. Collection "query a=.) Into. ews, 
TAE.Tae_Co.Ce_Pimnd (Inter ColMection query "t", “Warewtargecs, 


exception 


when TAE.UNINITIALIZED_PTR => 
Text IO.Put Line ("Panel query.Initialize Panel: " 
& "Collection Read not initials zed... 
raise; 


when TAE.Tae_Co.NO.- SUCH MEMBER => 
Text_TO.Put_Line ("Panel query WWM'tialrze Panel: " 
S&S" View or Target) not in Collection tani: 
raise; 


end Initialize Panel; 
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procedure Create Panel 
( Panel State 
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in TAE.Tae Wpt.Wpt Flags 
QCEOTAER.Tae Wpt.WPT PREFERRED; 


Relative Window 
in X Windows.Window 
:z X Windows.Null Window ) is 
==] NOTES: (none) 


begin -- Create_Panel 


if Info.Panel Id - Tae.Null. Panel Id then 
TAE.Tae Wpt.Wpt NewPanel 


( Dummy m EN 
Data Vm => Info-Target, 
View Vm => Info.:View, 
Relative Window -» Relative, Window, 
User Context => MIE OS 
Flags => Panel_State, 
Panel Id zo ImtodPanel-rdq^ ; 


else 
Text IO.Put Line ("Panel (query) is already displayed."); 
end if; 


Exception 


when TAE.UNINITIALIZED PTR => 
Text IO.Put Line ("Panel query.Create Panel: " 
& "Panel was not initialized prior to creation."); 
raise; 


when TAE.TAE FAIL => 
Text IO.Put Line ("Panel query.Create Panel: " 
& "Panel could not be created."); 
raise; 


end Create Panel; 
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procedure Connect_Panel 
( Panel_State 
in TAE.Tae Wpt.Wpt Flags 
Js eee tae Wot WPT PREFERRED; 


Relative_Window 
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in X Windows.Window 
:z X Windows.Null. Window ) is 


--| NOTES: (none) 
begin -- Connect Panel 


if Info.Panel Id - Tae.Null. Panel. Id then 
Create Panel 
( Relative Window => Relative Window, 
Panel. State 2» Panel State ); 
else 
TAE.Tae Wpt.Wpt SetPanelState (Info.Panel Id, Panel.State); 
ence ms 


exception 
when TAE.Tae Wpt.BAD STATE --» 
Text IO.Put Line ("Panel query.Connect Panel: " 
& "Invalid panel state."); 


raise; 


end Connect, Panel; 
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procedure Destroy Panel is 
begin -- Destroy Panel 
TAE.Tae Wpt.Wpt PanelErase(Info.Panel Id); 
exception 
when TAE.Tae Wpt.BAD PANEL ID => 
Text IO.Put Line ("Panel query.Destroy Panel: " 
& “Info.Panel_ Id is an invalid 1d:5); 


raise; 


when TAE.Tae Wpt.ERASE NULL PANEL => 


-- This panel has not been created yet, or has already been destroyed. 


-- Trap this exception and do nothing. 
nur 


end Destroy Panel; 


o o e A 
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-- begin EVENT HANDLERS 


e e èo 9 9 9 >à 6 9.9 0. 0. . o . o . e. 9*9 ò . 9 .e o 


e. e » 9 o o 9 9 o o o o 9 9$ 9 9 è 9 9 o ò o e 


procedure psdlselect_Event 
( Info 


PURPOSE: 
EVENT HANDLER. 


array (1... 1°} 
TAE.Taeint; 


Value 
Count 

- -ADDED 
NOM.K,S teger: l; 
Dummy : Boolean; 

peal. vec:s veetor(l..1): 


begin -- psdlselect_Event 


in Pak. Tae Wot.Eventeeentext Ptr. ) 


SE SEring 
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ls 


Insert application specific information. 


(1. .TAE.Tae_Taeconf.STRINGSIZE); 


(others=> new STRING(1..80)); 


-- Begin default generated code 


¡BAB= Tae Vm.Vm.Extract, Count 


Erocount > 0 then 


TAE.Tae Vm.Vm Extract SVAL 


end if; 
--ADDED 
psdltile:sValue(l1)(Il. 
parse line(psdlfile); 
strlen(psaltfile, Ny; 
Sstrlen(Directory,M); 
MIS a-directory then 
K:=N+M; 


ato. Parm Per, Counti; 


(Info. Parm Ptr, I Value(l)); 
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Diem ewory (lek) s=Dlrectory (lem) we epsalftite~ ye (N-T)); 


Peek 2) then 
directory-array 
else 
directory array 
end if; 


FAZ. Tae _Vm.Vm_SetString (Info. 
.Tae Vrm.P UPDATE); 


Directory ((K=26) KI; 


Directory mou) 


View malrectorytabele” 1 directory array, TAE 


TAE.Tae_Wpt .Wpt_ViewUpdate(Info.Panel_Id, “directorylabel",Info.View, "dir 


ectorylabel"); 


Soe malls -FP '"&Directoryv(l..K)&" > "&'Ts-file"J; 
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list .directory(ls-file,file name,tile vecaMunumbe cm 


TAE.Tae Wpt.Wpt SetStringConstraints(Info.Panel Id,"psdlselect",taeint(n 
umber),file vec); 

Dummy:-zTAE.Tae Wpt.Wpt Pending; 

cur dir index:-chuecdUreSndeccte 

Current:directory (curtda rinde] (UA --psdhrile T 

for node in (N+1)..80 loop 

Current directory(cur dir. index) (node):s' '; 

end loop; 

system call(í("rm ls file"); 

ls_a directorv:=FALSE; 


elsif Upper_directory then 
strlen(Current directory (cur dirminde E 
for dret in (M=-sS+ 55091 59D 
Dee 
GTI T 
if (M-S)»27 then 
directory array 


Directory(((M-S)-26)..(M-S)); 
else 
directory array Directory(l. 200% 


end 1É; 


TAE.Tae Vm.Vm SetString(Info.View,"directorylabel",l,directory array, TAE 
.Tae Vm.P UPDATE); 


TAE.Tae Wpt.Wpt ViewUpdate(Info.Panel Id,"directorylabel",Info.View,"dir 
ectorylabel"); | 


cur dir index: =curtdWwr inder i; 
system call("ls -F "&Directory(1..(M-S))&" » "&*"Is file")5 
list directory(ls file,file name,file vec,number); 


TAE.Tae Wpt.Wpt SetStringConstraints(Info.Panel Id,"psdlselect",taeint (n 
umber) file vec); 

Dummy : =TAE.Tae_Wpt .Wpt_Pending; 

system call("rm ls file"); 

Upper directory:zFALSE; 


else  --A file name is selected 
psdl_vec(1).all:=psdlfile; 


TAE.Tae Wpt.Wpt SetStringConstraints(Info.Panel. Id,"psdlin"',l,psdl.vec); 
Dummy :=TAE.Tae_Wpt .Wpt_Pending; 


end if; 


m 


-- End default generated code 


end psdlselect Event; 
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procedure cancel Event 
( Info : in TAE.Tae Wpt.Event Context Ptr ) is 


--| PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


Due array (1..l1) of String (1..TAE.Tae Taeconf.STRINGSIZE); 
scunt : TAE.Taelnt; 


begin -- cancel_Event 


-- Begin default generated code 
INBA Vm. Vi Extract_Count (Info.Parm*"Ptr7 Count); 
ma ounte > 0 then 

TAE Tae Vm.Vm Extract_SVAL (Into.Parm_Ptr, 1,”"Value(l)):; 
ena if; 


-- End default generated code 


-- Begin generated code for Connection 
Connect Panel (TAE.Tae Wpt.WPT INVISIBLE); 
Panel mainmenu.Connect Panel (TAE.Tae Wpt.WPT VISIBLE); 
-- End generated code for Connection 
--ADDED 
TAE.Tae Wpt.Wpt, PanelReset(Info.Panel Id); 
RO in 1..909fOOD 
Directory (J):=" '; 
end loop; 


Pere in i. .cur dir index loop 

Pore in 1-90 loop 
ceumpentedirectory(K)(L):z' E 

end loop; 

end loop; 

bons Tn 27 loop 
dar edieryearrayd(eeeem t; 

end loop; 

Guredir index:=l1: 


end cancel_Event; 
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procedure ok Event 
( Info : in TAE.Tae Wpt Event _ Context Petr NS 


--| PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


Value : array (1..1) of String (1..TÀE.Tae Taeconf.STRINGSTIZEUE 
Count : TAE.Taeint; 


--ADDED 

N;K: J, S: Inter =F 

teststring:String(l 30). M oBbers- E 
begin -- ok Event 


-- Begin default generated code 

TAE.Tae_Vm. Vm Extract Count (Info. Parm Ptr OUEEUE 

if Count > 0 "then 

TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(l)); 

end if; 

-- ADDED 

strlen(psdlfile,N); 

strlen Directory, KI: 

SLT Len ws 

system cabll(eem&"cge*€"&library(l..J)&" "&Dirnectory Gee K)&" 
"&psdlfile(l NS E"&quer Source 

list. components (q outfile,query outfile,file vec,num of. comp); 


--strlen(file_vec(l).all,S); 
open(q_outfile,mode=>in_file, name=>query_outfile); 
Text #90 . get _linetqseuttile, tesitstring,S) ; 
close oattrle 
if teststring (1. 7.) " then 
TAE.Tae_Wpt .Wpt_PanelMessage(info.panel_id, "NO MATCHING COMPONENT 
IS FOUND); 
system_call("rm query_outfile"); 
else 


TAE.Tae Wpt.Wpt SetStringConstraints(Panel compsel.Info.Panel Id,"compse 
l",taeint(num-ofsconp) kuilesvec) 

Dummy:-zTAE.Tae Wpt.Wpt Pending; 

system call("rm query _outfilel); 

Query := True; 

Query psdl(1. N):= psdliífile (TEN; 
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system call(*cp "&Directory(1..K)&"/"&psdlfile(1..N)&" ."); 
-- End default generated code 
-- Begin generated code for Connection 
Connect, Panel (TAE.Tae Wpt.WPT INVISIBLE); 
Panel compsel.Connect Panel (TAE.Tae Wpt.WPT VISIBLE); 
-- End generated code for Connection 
SS ADDED 
TAE.Tae Wpt.Wpt PanelReset(Info.Panel Id); 
rcm 1-80 loop 
EUPOCGUOPVUM) sm *; 
end loop; 


"nn i--cur-dir index loop 

m n l..80 loop 
curment-direcemev(Y)(Z):-' '; 

end loop; 

end loop; 

morena in I..27 loop 
rectory array (AA):= ' '; 

end loop; 

cúr dir index: =i > 


end if; 


end ok_Event; 
-- end EVENT HANDLERS 


meme eee eee i - 
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procedure Dispatch Item 
( User Context Ptr : in TAE.Tae Wpt.Event Context, Ptr ) is 


pegino---Dispatch Item 


= = è s e 


if TAE.Tae Misc.s equal ("psdlselect", User Context Ptr.Parm Name) 


then 
psdiselect^Event (User Context Ptr); 


elsif TAE.Tae Misc.s equal ("cancel", User Context Ptr.Parm Name) then 


cancel, Event (User. Context, Ptr); 
elsif TAE.Tae Misc.s equal ("ok", User Context Ptr.Parm Name) 
ok Event (User Context Ptr); 
end if; 
end Dispatch Item; 


end Panel, query; 
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then 


L. PANEL COMPSEL PACKAGE 


1. PAN COMPSEL S.A 


-- *** TAFE Plus Code Generator version V5.1 


cu xx pe : pan, compsel s.a 
-- *** Generated : May 21 16: 9729309901992 
-- *** Revised by : Dogan Ozdemir 


Me se ck e se e ke KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KKK KK 
* 

=e Panel_compsel == Package SEEC 

* 


kkk keke KR KKK KKK KKK KKK KK KKK KKK KKK KEK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK 


with TAB: 
with X, Windows; 


package Panel compsel is 


=- | PURPOSE: 

--| This package encapsulates the TAE Plus panel:  compsel 

--| These subprograms enable panel initialization, creation, destruction, 
--| and event dispatching. For more advanced manipulation of the panel 
--| using the TAE package, the panel's Event Context (Info) is provided. 
--| It includes the Target and View (available after initialization) 

--| and the Panel Id (available after creation). 


--| REGENERATED: 

--| The following Workbench operations will cause regeneration of this 
--| file: 

-= | The panel's name is changed (not title) 

--| For panel: 


==] compsel 

se] 
inte TAE.Tae Wpt.Event Context Ptr; -- panel information 
-- Initialize Panel -- Subprogram SPEC 
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procedure Initialize Panel 


( Collection, Read -— TAFE Collection read trom 
Tm tas .Tae Coveollection, Ptr) - -- resource file 
--| PURPOSE: 
--| This procedure initializes the Info.Target and Info.View for this 
--| panel 
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~ EXCEPTIONS: 

Someries. UNINITIALIZED PTR is raised if Collection _ Read not initialized 
--| TAE.Tae_Co.NO_SUCH_MEMBER is raised if the panel is not in 

--| Gollection Read 


. e e €9 € €9 €9 o €9 o òo o o €9 o o o o o o e ‘O e 5» * e e e e e 9 $9 9 9 9 9 9 $9 9 9 9 9 * 9 © © $9 © $9 9» * * * * 9 9 9 9 * 9 * e e © o» 


procedure Create Panel 
( Panel State -- Flags sent to Wpt NewPanel. 
in TAE.Tae Wpt.Wpt Flags 
:z TAE.Tae Wpt.WPT PREFERRED; 


Relative Window -- Panel origin is offset from 
in X Windows.Window -- this X Window. Null Window 
:- X Windows.Null Window ); -- uses the root window. 
--| PURPOSE: 


--| This procedure creates this panel object in the specified Panel State 
--| and stores the panel Id in Info.Panel,. Id. 

sm | 

--| EXCEPTIONS: 

C E UNINITIALIZED PTR is raised if the panel is not initialized 
--| TAE.TAE_FAIL is raised if the panel could not be created 
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procedure Connect Panel 
( Panel. State 
SEDSTAE-Tae Wpt.Wpt Flags 
:z TAE.Tae Wpt.WPT PREFERRED; 


Relative Window -- Panel origin is offset from 
in X Windows.Window -- this X Window. Null Window 
:z X Windows.Null. Window ); -- uses the root window. 
--| PURPOSE: 


--| If this panel doesn't exist, this procedure creates this panel object 
Ec in the specifiec Panel State and stores the panel Id in 

== Info.Panel Id. 

--| If this panel does exist, Yt is set to the specified Panel_State. 
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--| 
--| 
-— | 
--| 
-- | 
-- | 
--— Í 
--| 


procedure Destroy Panel; 


In this case, Relative Window is ignored. 


EXCEPTIONS: 

TAE.UNINITIALIZED PTR is raised from Create Panel if the panel is 
not initialized 

TAE.TAE, FAIL is raised from Create Panel if the panel could not be 
created 

TAE.Tae Wpt.BAD STATE is raised if the panel exists and the 
Panel. State is an invalid state 
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PURPOSE: 
This procedure erases a panel from the screen and de-allocates the 
associated panel object (not the target and view). 


EXCEPTIONS: 
TAE.Tae Wpt.BAD PANEL ID is raised if Info.Panel Id is an invalid 





NOTES: 
Info.Panel_Id is set to TAE.NULL_PANEL_ID, and should not referenced 
in any Wpt call until it is created again. 
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procedure Dispatch_Item 


( 


User Context Ptr -- Wpt Event Context for a PARM 
in TAE.Tae Wpt.Event, Context, Ptr ); -- event. 
PURPOSE: 


--| This procedure calls the Event Handler specified by User Context Ptr 


-= | 


EXCEPTIONS: 
Application-specific 


end Panel compsel; 
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2. PAN COMPSEL B.A 


IM TAE Plus Code Generator version V5.1 


-- *** File : pan_compsel_b.a 
mo Generated : May 21 16:12:31 1992 
-- *** Revised by : Dogan Ozdemir 


E". ck ck ce ck ck ck ck ce ke ck ck ck e oce de ck ck ck ck ok ck ck ck ck ck ce ck ck ck ck ck ke ck ck ck ck ck ck de ok ck ck ce ck oe cde oe c de ce ck oe coke ck ck oe e oc cde coke ck ck e ok ox 
* 

-- * Panel_compsel -- Package BODY 
* 


E Jk ck ck ck ck ck ck ck ck ck ck ck ck cde je ce ck ck ck ck ck ce ck ok e e A e ck ce ck ce e cde ce ck ck ck ce ck ck ok ck ck ck ok ce ok ck ck ck ok ck € de ok ok oe eo 


with TAE; use TAE; 
ENth Text. IO; 

with Global; 

use Global,Text. IO; 


-- One "with" statement for each connected panel. 
with Panel mainmenu; 

with Panel viewpsdl; 

with Panel. select; 


package body Panel compsel is 


--| NOTES: 

--| For each parameter that you have defined to be "event-generating" in 
--| this panel, there is an event handler procedure below. Each handler 
--| has a name that is a concatenation of the parameter name and " Event". 
--| Add application-dependent logic to each event handler. (As generated 
--| by the WorkBench, each event handler simply logs the occurrence of 
--| the event.) 


--| You may want to flag any changes you make to this file so that if 
--| you regenerate this file, you can more easily cut and paste your 
--| modifications back in. 


--| REGENERATED: 

--| The following WorkBench operations will cause regeneration of this 
--| file: 

==) The panel's name is changed (not title) 

eI For panel: 

E compsel 


--| The following WorkBench operations will also cause regeneration: 
"xd An item is deleted 

E À new item is added to this panel 

item's name is changed (not title) 

item's data type is changed 

item's generates events flag is changed 

item's valids changed (if item is type string and connected) 
item's connection information changed 

--| For the panel items: 


BEBE SE 


251 


--| compsel, cancel, view, select 
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procedure Initialize Panel 
( Collection. Read 
in TAE.Tae Co. CollectiónPto s 


begin -- Initialize Panel 
Info :z new TAE.Tae Wpt.Event. Context; 
Info.Collection := Collection_Read; 


TAE.Tae_Co.Co_Find (Info.Collection, “comese ly into. Jitew ss 
TAE.Tae Co.Co Find (Info.Collection, "compsel t' Info TON Jc 


exception 


when TAE.UNINITIALIZED PTR => 
Text IO.Put Line ("Panel, compsel.Initialize Panel: " 
& "Collection. Read not initialized."); 
raise; 


when TAE.Tae_Co.NO_SUCH_MEMBER => 
Text IO.Put Line ("Panel compsel.Initialize Panel:  " 
& "(View or Target) not in Collection sr, 
raise; 





end Initialize. Panel; 
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procedure Create Panel 
( Panel. State | 
: in TAE.Tae Wpt.Wpt Flags 
:2 TAE.Tae Wpt.WPT PREFERRED; 


Relative Window 
in X Windows.Window 
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:2 X Windows.Null. Window ) is 
begin -- Create Panel 


if Info.Panel. Id - Tae.Null. Panel Id then 
TAE.Tae Wpt.Wpt NewPanel 


( Dummy MU 

Data Vm => Into Target, 

View_Vm => Info.View, 

Relative_Window => Relative Window, 

User_Context => MENO 

Flags -» Panel. State, 

Panel Id => Inte. Panel ld 7): 
else 


Text IO.Put Line ("Panel (compsel) is already displayed."); 
end if; 


exception 


when TAE.UNINITIALIZED_PTR => 


Text IO.Put Line ("Panel compsel.Create Panel: " 
& "Panel was not initialized prior to creation."); 
raise; 


when TAE.TAE FAIL -» 


Text IO.Put Line ("Panel compsel.Create Panel: " 
& "Panel could not be created."); 
raise; 


end Create Panel; 
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procedure Connect, Panel 
( Panel. State 
in TAE.Tae Wpt.Wpt Flags 
:2 TAE.Tae Wpt.WPT PREFERRED; 


Relative Window 
in X Windows.Window 
:z X Windows.Null Window ) is 
begin -- Connect, Panel 
if Info.Panel Id - Tae.Null. Panel Id then 


Create Panel 
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( Relative Window z» Relative Window, 
Panel State => Panel State ); 
else 
TAE.Tae Wpt.Wpt SetPanelState (Info.Pañel Td, Paneleceace 
GHd ert 


exception 


when TAE.Tae Wpt.BAD STATE => 
Text IO.Put Line ("Panel compsel.Connect Panel:  " 
& "Invalid panel state."); 
raise; 


end Connect. Panel; 
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procedure Destroy Panel is 


begin -- Destroy Panel 
TAE.Tae Wpt.Wpt PanelErase(Info.Panel, Id); 
exception 
when TAE.Tae Wpt.BAD PANEL ID => 
Text IO.Put Line ("Panel compsel.Destroy Panel: " 
& “Info. Panel. Ta*is anvinvalwca udo 
raise; 
when TAE.Tae Wpt.ERASE NULL PANEL => 
-- This panel has not been created yet, or has already been destroyed. 
-- Trap this exception and do nothing. 
noue 


end Destroy. Panel; 
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-- begin EVENT HANDLERS 
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procedure compsel Event 
arr: In TAE. TaekWpt. Event Context_Ptr ) is 


--| PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


--| NOTES: Selects the component from the list 


Value : array (1..1) of String (1..TAE.Tae_Taeconf .STRINGSIZE) ; 
Count : TAE.Taeint; 


begin -- compsel Event 


-- Begin default generated code 


tore rae Vm.Vm_Extract Count (Info.Parm_Ptr, Count); 
mE Count > 0 then 
TE Tas vm. ym Extract SVAL (Info.Parm Ptr, 1, Value(l)); 
else 
null; 
end ift: 
- -ADDED 
eoma l.. 80):=Value(1)(1..80}); 


-- End default generated code 


end compsel Event; 
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procedure cancel, Event i 
( Info : in TAE.Tae Wpt.Event, Context Ptr ) is 


--| PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


--| NOTES: (none) 
Dau array Lo "or String (1..TAE.Tae_Taecont .STRINGSIZE) ; 
Gounc : TAE.Taeint ; 
Q OEEIDBeger:zl: 


begin -- cancel, Event 


-- Begin default generated code 
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TAE.Tae Vm.Vm Extract _ Count (Info. Parm PEr M A 
if ount > 0 then 

TAE .Tae_Vm.Vm_EXtract_SVAMe (Grito. Parm Per, ie eee eee 
else 

nup 
end if; 
if Query then 

Query:-False; 

strlen (Query_psdl,Q); 

system call("rm "&Quéry_ psdli(1.. 0); 
endmif; 


-- End default generated code 


-- Begin generated code for Connection 


-e ba 


Connect Panel (TAE.Tae Wpt.WPT INVISIBLE); 
Panel mainmenu.Connect, Panel (TAE.Tae Wpt.WPT VISIBLE); 


-- End generated code for Connection 


--ADDED 
TAE.Tae Wpt.Wpt PanelReset(Info.Panel Id); 
for Clean in TTT Sm 


for sehen ieee loop 
file vec(Glean jad hich == 57 
end loop; 
end loop; 
eomp (i. .5) 2s" "ES 


end cancel Event; 
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procedure view Event 
( Info : in TAE.Tae Wpt.Event Context Ptr ) is 


--| PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


--| NOTES: (none) 
Value : array (1..1) of String (1. .TAE.Tace2tacconi  STRINGSIZa 


Count : TAE.Taegbe 
Is |: Integer:zl; 
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begin -- view, Event 


-- Begin default generated code 


Es rae Vm.Vm Extract Count (Info.Parm Ptr, Count); 
mermeount > 0 then 

TAE.Tae Vm.Vm Extract. SVAL (Info.Parm.Ptr, 1, Value(1)); 
end Ne. 
- -ADDED 
memcomo(l..5) = " " then 

TAE.Tae_Wpt .Wpt_PanelMessage(info.panel_id, "NO COMPONENT IS 

SELECTED"); 

else 

component := comp; 

<- lení component, L); 

E Jen(library,sS); 


system call(com&"cv "&library(1..S)&" "&component(1..L)&" outpsdl 
EHtspec outbody"); 


-- End default generated code 


-- Begin generated code for Connection 


Connect Panel (TAE.Tae Wpt.WPT INVISIBLE); 
Panel viewpsdl.Connect, Panel (TAE.Tae Wpt.WPT VISIBLE); 


-- End generated code for Connection 
end if; 


end view Event; 
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procedure select Event 
( Info : in TAE.Tae Wpt.Event Context Ptr ) is 


SEUR POSE: 

--| EVENT HANDLER. Insert application specific information. 

E 

--| NOTES: Selected component will be further munipulated if this 
procedure 

E is invoked. 


Dau carra-(0l..-D»of String (1..TAE*Tae_Taecont“STRINGSIZE); 
Count : TAE.Taeint; 


2:57 


begin -- select Event 


-- Begin default generated code 


TAE.Tae Vm.Vm Extract Count (Info-Parm Ptr) Cobo 
lf -Gount > 0 HEN 


TAE .Taie_Vm.Vm_ExtracteSVAL (Into. Farm Ptr, "UIN ee 
end if; 
- -ADDED 
if compe e " then 


TAE.Tae Wpt.Wpt PanelMessage(info.panel id,"NO COMPONENT IS 
SELEGTEE 


else 
component comp; 


-- Begin generated code for Connection 

Connect Panel (TAE.Tae Wpt.WPT INVISIBLE); 

Panel select.Connect Panel (TAE.Tae Wpt.WPT VISIBLE); 
-- End generated code for Connection 
end if; 


end select_Event; 


-- end EVENT HANDLERS 
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procedure Dispatch, Item 
( User Context Ptr : in TAE.Tae Wpt.Event Context Ptr ) is 


begin -- Dispatch Item 


if TAE.Tae Misc.s equal ("compsel", User Context, Ptr.Parm Name) then 
compsel Event (User Context Ptr); 


elsif TAE.Tae Misc.s equal ("cancel", User Context Ptr.Parm Name) then 
cancel Event (User Context Ptr); 


elsif TAE.Tae Misc.s equal ("view", User Context Ptr.Parm Name) then 
view Event (User Context Ptr); 


elsif TAE.Tae Misc.s equal ("select", User Context Ptr.Parm Name) then 
select Event (User Context Ptr); 
end if: 


end Dispatch_Item; 


end Panel compsel; 
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M. PANEL VIEWPSDL PACKAGE 


1. PAN VIEWPSDL S.A 


-- *** TAE Plus Code Generator version V5.1 
-- *** File : pan_viewpsdl_s.a 

-- *** Generated : Jul 13 16:13:09 1992 

-- *** Revised by : Dogan Ozdemir 


*e ck ck ck ce ce de de xe de e e xe ce de de oce ce de de ce ck e e e de cc ck ck ck ck ck ck ck oe ce de de e de de oe ck oc ck e e ck ck e ck ck ce AAA AAA A eoe Xe e cook oco 
* 

-- * Panel viewpsdl -- Package SPEC 

* 


LIA RAE. dd dd: dcl A A A A A A A A AAA AA A AA A GG AG dg e e 


With TAE; 
with X Windows; 


package Panel viewpsdl is 


--| PURPOSE: 

--| This package encapsulates the TAE Plus panel:  viewpsdl 

--| These subprograms enable panel initialization, creation, destruction, 
--| and event dispatching. For more advanced manipulation of the panel 
--| using the TAE package, the panel's Event Context (Info) is provided. 
--| It includes the Target and View (available after initialization) 

--| and the Panel Id (available after creation). 


--| REGENERATED: 

--| The following Workbench operations will cause regeneration of this 
EEtile. 

E The panel's name is changed (not title) 

--| For panel: 


E= viewpsdl 
Info : TAE.Tae Wpt.Event Context Ptr; -- panel information 
== Initialize_Panel -- Subprogram SPEC 
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procedure Initialize_Panel 


( Collection_Read -- TAE Collection read from 
M PAE Tae+Co.:Collection_PtrY ); -- resource file 
--| PURPOSE: 
--| This procedure initializes the Info.Target and Info.View for this 
--| panel . 
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--| EXCEPTIONS: 

--| TAE.UNINITIALIZED PTR is raised 1t Collection Read notorurt E 
--| TAE.Tae Co.NO-SUCH MEMBER is raised if the panel nor 

--| Collection. Read 
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procedure Create_Panel 
( Panel State -- Flags sent to Wpt NewPanel. 
in TAE.Tae Wpt.Wpt Flags 
>= TAE.Tae Wpt.WPT PREFERRED; 


Relative Window == Panel origin 1s offset Fron 
in X Windows.Window -- this X Window. Null Window 
:z X Windows.Null. Window ); -- uses the root window. 
--| PURPOSE: 


--| This procedure creates this panel object in the specified Panel, State 
--| and stores the panel Id in Info.Panel Id. 

== 

== (ESE E BONS: 

--| TAE.UNINITIALIZED_PTR is raised if the panel is not initialized 
--| TAE.TAE FAIL is raised if the panel could not be created 
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procedure Connect, Panel 
( Panel. State | 
in TAE.Tae Wpt.Wpt Flags | 
:2 TAE.Tae Wpt.WPT PREFERRED; 


Relative Window -- Panel origin is offset from 
in X Windows.Window -- this X Window. Null Window 
:z X Windows.Null Window ); -- uses the root window. 
--| PURPOSE: 


--| If this panel doesn't exist, this procedure creates this panel object 
zi in the specifiec Panel State and stores the panel Id in 
== | Info. Panel_Id. | 
--| If this panel does exist, it is set to the specified Panel State. 

M In this case, Relative Window is ignored. 


= OU EXC ER TIONS: 
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--| TAE.UNINITIALIZED PTR is raised from Create Panel if the panel is 
--| nocsinitialized 

--| TAE.TAE FAIL is raised from Create Panel if the panel could not be 
--| created 

--| TAE.Tae Wpt.BAD STATE is raised if the panel exists and the 

| Panel_State is an invalid state 
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procedure Destroy. Panel; 


--| PURPOSE: 
--| This procedure erases a panel from the screen and de-allocates the 
--| associated panel object (not the target and view). 


A EXCEPTIONS: 


--| TAE.Tae Wpt.BAD PANEL, ID is raised if Info.Panel_Id is an invalid 


--| NOTES: 
--| Info.Panel. Id is set to TAE.NULL. PANEL, ID, and should not referenced 
--| in any Wpt call until it is created again. 
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procedure Dispatch Item 


( User Context Ptr -- Wpt Event Context for a PARM 
in TAE.Tae Wpt.Event Context Ptr ); -- event. 
--| PURPOSE: 


--| This procedure calls the Event Handler specified by User Context Ptr 


== | 
--| EXCEPTIONS: 
--| Application-specific 


end Panel viewpsdl; 
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2. PAN VIEWPSDL B.A 


-- *** TAE Plus Code Generator version V5.1 
-—- *** File : pan, viewpsdl b.a 

-- *** Generated : Jul 13 16:13:09 1992 

-- *** Revised by : Dogan Ozdemir 


c X X X X X X e X :2:2:2: dcc: cc ccc. + e A e 


E Panel_viewpsdl Sa Package EORI 


€ 3k ck 3e oce ce ck oce ce ode eoe oce ode ck A X X X X X X X X X k X X + X + + X + k+ + + + + + + k k+ + X + + + + + + + X + k+ +k + k KK KKK KKK e 


with TAE; use TAE; 
with Text. IO; 

with Globale 

use Global,Text. IO; 


-- One "with" statement for each connected panel. 
with Panel. compsel; 
with Panel viewspec; 


package body Panel, viewpsdl is 


--| NOTES: 

--| For each parameter that you have defined to be "event-generating" in 
--| this panel, there is an event handler procedure below. Each handler 
--| has a name that is a concatenation of the parameter name and " Event". 
--| Add application-dependent logic to each event handler. (As generated 
--| by the WorkBench, each event handler simply logs the occurrence of 
--| the event.) 


--| You may want to flag any changes you make to this file so that if 
--| you regenerate this file, you can more easily cut and paste your 
--| modifications back in. 


--| REGENERATED: 

--| The following WorkBench operations will cause regeneration of this 
--| file: 

= The panel's name is changed (not title) 

--| For panel: 

z5 viewpsdl 


--| The following WorkBench operations will also cause regeneration: 

e An item is deleted 

zu A new item is added to this panel 

item's name is changed (not title) 

item's data type is changed 

item's generates events flag is changed 

item's valids changed (if item is type string and connected) 
item's connection information changed 

--| For the panel items: 


55555 
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| 
| 
| 


-- cancel, viewspec 
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procedure Initialize Panel 
( Collection. Read 
in TAE.Tae Co.Collection Ptr ) is 


begin -- Initialize Panel 


Info :- new TAE.Tae Wpt.Event Context; 

mo C Collection := Colleection_Read; 
Esraesco.cocbsmndo(Info.Gollection, "viewpsdl v*, Info.View); 
Bu I3aGsco.CcooEbBsnde(In£ío.Gellection, "vaiewpsdl t', Info.Target); 


exception 


when TAE.UNINITIALIZED_PTR => 
Text IO.Put Line ("Panel viewpsdl.Initialize Panel: " 
Collection Read not initialized."): 
ralse; 


when TAE. Tae_Co.NO_SUCH_MEMBER => 
Text_IO.Put_Line ("Panel_viewpsdl.Initialize_Panel: " 
cier target) not in Collection.") ; 
raise; 


end Initialize. Panel; 
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procedure Create Panel 
( Panel. State 
in TAE.Tae Wpt.Wpt Flags 
:= TAB.Tae_Wpt.WPT_PREFERRED; 


Relative_Window 
in X_Windows.Window 
:= X_Windows.Null_Window ) is 


begin -- Create_Panel 
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if Info.Panel Id s Tae.Null Panel IGNEBESN 
TAE.Tae Wpt.Wpt NewPanel 


( Dummy mirus 
Data Vm seo Into. target. 
View_Vm => Into. View; 
Relative_Window => Relative _ Window, 
User Context => nto 
Flags => Panel State, 
Panel_Id => Info.Panel idm); 


else 
Text_IO.Put_Line ("Panel (viewpsdl) is already displayed."); 
endi if. 





exception 


when TAE.UNINITIALIZED_PTR => 1 
Text IO.Put Line ("Panel viewpsdl.Create Panel: " 
"Panel was notiinitializediprior to creations). 
ralse; 


when TAE.TAE_FAIL => 
Text IO.Put Line ("Panel viewpsdl.Create Panel: " 
& "Panel could not be created."); 
raise; 


end Create Panel; 
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procedure Connect Panel 
( Panel State 
in TAE.Tae Wpt.Wpt Flags 
:- TAE.Tae Wpt.WPT PREFERRED; 


Relative Window 
in X Windows.Window 
¿= X Windows.Null Window ) is 


Dummy : Boolean; 
L >: Integer:sz1: 
label: String(1..80):=(otherse>' 1); 
begin -- Connect_Panel 
if Info.Panel_Id = Tae.Null_Panel_Id then 


Create Panel 
( Relative Window -» Relative Window, 
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Panel State -» Panel State ); 


else 
TAE.Tae Wpt.Wpt SetPanelState (Info.Panel. Id, Panel. State); 
end rr: 
-- ADDED 
strlen(component,L); 
abel. (L+5)):=component (1..L)£".psdl"; 


Rae Vm.Vm SetString(Info.View,"psdllabel",1,1abel(1..(L4«5)),TAE.Tae. 
Vm.P UPDATE); 


TAE.Tae Wpt.Wpt ViewUpdate(Info.Panel Id,"psdllabel",Info.View, "psdllabe 
E"). 


Dummy :=TAE.Tae_Wpt .Wpt_Pending; 
Exception 
whenwTAE.Tae Wpt.BAD STATE => 
Text IO.Put Line ("Panel viewpsdl.Connect Panel: " 
& "Invalid panel state."); 
raise; 


end Connect, Panel; 
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procedure Destroy_Panel is 
begin -- Destroy_Panel 
TAE.Tae Wpt.Wpt PanelErase(Info.Panel Id); 
exception 
when TAE.Tae Wpt.BAD PANEL ID => 
Text IO.Put Line ("Panel viewpsdl.Destroy Panel: " 
& "Info.Panel.Id is an invalid id."); 


raise; 


when TAE.Tae Wpt.ERASE NULL, PANEL => 

-- This panel has not been created yet, or has already been destroyed. 
-- Trap this exception and do nothing. 
Ius 


end Destroy Panel; 
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-- begin EVENT HANDLERS 
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procedure cancel. Event 
( Info : in TAE.Tae Wpt.Event Context Ptr ) is 


--| PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


Value : array (1..1) of String (1l..TNBENTae Taeconf.STRINGSTZBUE 
Count : TAE.Taeint; 


begin -- cancel. Event 


-- Begin default generated code 


TAE.Tae Vm.Vm- Extract count (InN Parm PCr Coun 
if Count 20 then 
TAE.Tae Vm.Vm Extract SVAL (Info.Parm Ptr, 1, Value(1)); 
end if; 
-- ADDED 
system_call("rm outpsdl"); 
system_call("rm outspec"); 
system_call (“rm outbodyv 5-7 


-- End default generated code 


-- Begin generated code for Connection 


Connect Panel (TAE.Tae Wpt.WPT INVISIBLE); 
Panel compsel.Connect Panel (TAE.Tae Wpt.WPT VISIBLE); 


-- End generated code for Connection 


end cancel Event; 
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procedure viewspec Event 
( Info : in TAE.Tae Wpt.Event Context ER T EIES 


266 





--| PURPOSE: 
ESUUEUBNI HANDLER. Insert application specific informeeiron. 


--| NOTES: (none) 


Epauc:carray (1..1) of String (lI-.TAE.Tae Taeconf.STRINGSIZE); 
Count : TAE.Taeint; 


begin -- viewspec Event 


-- Begin default generated code 


Ware fac VinuVm_EXE€ract Count (Info.Parm Ptr, Count); 
me Count > 0 then 

uxiuecum.vm- Extract SVAL (Info.Parm Ptr, 1, Value(1)): 
enda if; 


-- End default generated code 

-- Begin generated code for Connection 

Panel viewspec.Connect Panel (TAE.Tae Wpt.WPT VISIBLE); 
-- End generated code for Connection 


end viewspec Event; 
-- end EVENT HANDLERS 
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procedure Dispatch Item 
( User Context Ptr : in TAE.Tae Wpt.Event Context Ptr ) is 


begin -- Dispatch Item 
if TAE.Tae Misc.s equal ("cancel", User Context Ptr.Parm Name) then 
cancel Event (User Context Ptr); 
elsif TAE.Tae Misc.s equal ("viewspec", User Context Ptr.Parm, Name) 
then 
Viewspec Event (User Context Ptr); 
end if; 


end Dispatch Item; 


end Panel viewpsdl; 
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N. PANEL VIEWSPEC PACKAGE 


l. PAN VIEWSPEC S.A 


-- *** TAE Plus Code Generator version V5.1 
== *E* REIS : pan, viewspec s.a 

-- *** Generated : Jul 13 16:13:09 1992 

-- *** Revised by : Dogan Ozdemir 


LN AA X X xY X d: (Jd X X X X fd dd: c 2 2222212 
* 

-- * Panel_viewspec -- Packages sere 

* 


AAA A AAA AA AAA AA AAA AA AAA AAA A AA AAA A AAA A AAA A A AA A dr A A A A A A A AA A A A A A 


with TAE: 
with X_Windows; 


package Panel_viewspec 1s 


--| PURPOSE: 

--| This package encapsulates the TAE Plus panel: viewspec 

--| These subprograms enable panel initialization, creation, destruction, 
--| and event dispatching. For more advanced manipulation of the panel 
--| using the TAE package, the panel's Event Context (Info) is provided. 
--| It includes the Target and View (available after initialization) 

--| and the Panel Id (available after creation). 


--| REGENERATED: 

--| The following Workbench operations will cause regeneration of this 
--| file: 

al The panel's name is changed (not title) 

--| For panel: 


--| viewspec 
Info : "PAE.Tae Wpt.Event9sContexbSPtE. -- panel information 
==... RENE VEIA AA AA EE 
m Initialize Panel -- Subprogram SPEC 


e € o o o9 9 o o 9*9 o 6 06 ov € *9* 0 6 o. 9? o 6 6 ‘o 9 Oo 9 9 9 9 O. o. A» 6 9*9 9 9 9? 09 9 €9 9 9 0 6 . 0 . . 06 6 9 9? . . 0€ € Fe * 9 9 e» * 9 9*9 *€* 


procedure Initialize. Panel 


( Collection Read -- TAE Collection read from 
in TAE.Tae Covcoellectionmoe man -- resource file 
--| PURPOSE: 
--| This procedure initializes the Info.Target and Info.View for this 
--| panel 
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-—I "EXCEPTIONS: 

--| TAE.UNINITIALIZED PTR is raised if Collection Read not initialized 
--| TAE.Tae Co.NO SUCH MEMBER is raised if the panel is not in 

--| Collection. Read 
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procedure Create Panel 
( Panel State -- Flags sent to Wpt NewPanel. 
in TAE.Tae Wpt.Wpt Flags 
;- TAE.Tae Wpt.WPT PREFERRED; 


Relative Window -- Panel origin is offset from 
in X Windows.Window -- this X Window. Null Window 
:- X Windows.Null. Window ); -- uses the root window. 
--| PURPOSE: 


--| This procedure creates this panel object in the specified Panel State 
--| and stores the panel Id in Info.Panel Id. 

=| 

--]| EXCEPTIONS: 

--| TAE.UNINITIALIZED PTR is raised if the panel is not initialized 
--| TAE.TAE_FAIL is raised if the panel could not be created 
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procedure Connect Panel 
( Panel. State 
in TAE.Tae Wpt.Wpt Flags 
:- TAE.Tae Wpt.WPT PREFERRED; 


Relative Window -- Panel origin is offset from 
in X Windows.Window -- this X Window. Null Window 
:z X Windows.Null Window ); -- uses the root window. 
--| PURPOSE: 


--| If this panel doesn't exist, this procedure creates this panel object 
=" in the specifiec Panel_State and stores the panel Id in 

==! Mnto.Panel Id. 

--| If this panel does exist, it 1s set to the specified Panel_State. 
=a] In this case, Relative_Window is ignored. 


-- | SHAMSESPT IONS .: 
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--| TAE.UNINITIALIZED PTR is raised from Create Panel if the panel is 
--| not inlteialized 

--| TAE.TAE FAIL is raised from Create Panel if the panel could not be 
--| created 

--| TAE.Tae Wpt.BAD STATE is raised if the panel exists and the 

--| Panel State is an invalid state 


€ € € o o ê 9? o o € o o 9 9 09 9 òo o €9 9 «© o o o o o o 06 9 [o o o 09 9 9 09 09 9 9 9 e 9 9 ‘o ê ê e e e 9 9 9 ê e ê 9» 9» 9» 9*9 9 9 9 9 9 . e 


procedure Destroy Panel; 


SS PURPOSE. 
--| This procedure erases a panel from the screen and de-allocates the 
--| associated panel object (not the target and view). 





--| EXCEPTIONS: 
--| TAE.Tae Wpt.BAD PANEL ID is raised if Info.Panel Id is an invalid 


--| NOTES: 
--| Info.Panel Id is set to TAE.NULL PANEL ID, and should not referenced 
--| in any Wpt call until it is created again. 
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procedure Dispatch_Item 


( User Context Ptr -- Wpt Event Context for a PARM ME 
in TAE.Tae Wpt.Event Context Ptr ); -- event. | 
--| PURPOSE: 


--| This procedure calls the Event Handler specified by User Context Ptr 


xl 
--| EXCEPTIONS: 
--| Application-specific 


end Panel viewspec; 


270 


2. PAN VIEWSPEC B.A 


EM TAR Plus € 5de Generator version V5.1 


ES '** File : pan viewspec b.a 
B= *** Generated  : Jul 13 16:13:09 1992 
-- *** Revised by : Dogan Ozdemir 


m * ce e oe ode ce oe ode oe de oe ode ode oe oe oe oe de de oe ce oe ode ode ode ode coke oe oe e ode ode oce oce ce oe oe ode ode oce oe ode ode ode oe oe oce oe ode A ce oe cfe oe ode ode ode cie oe ode eoe oe o oe oe ox 
* 

E  * Panel viewspec -- Package BODY 

* 


EN * c ce de ce de de ce ode oe ode ode oe oe oe oe oe oe ke ode oe oe de ode ode ode ke oe ce oe oe oe de ode oe ode cde cie oe de oe ode ode ode cie de oe coke e A ode ode oe coke cfe ce k+ de oe ode oe ode oe ce A + 


with TAE; use TAE; 
ESEh Text IO; 

with Global; 

use Text IO,Global; 


-- One "with" statement for each connected panel. 
with Panel viewpsdl; 
with Panel viewbody; 


package body Panel viewspec is 


--| NOTES: 

--| For each parameter that you have defined to be "event-generating" in 
--| this panel, there is an event handler procedure below. Each handler 
--| has a name that is a concatenation of the parameter name and " Event". 
--| Add application-dependent logic to each event handler. (As generated 
--| by the WorkBench, each event handler simply logs the occurrence of 
--| the event.) 


--| You may want to flag any changes you make to this file so that if 
--| you regenerate this file, you can more easily cut and paste your 
--| modifications back in. 


ESSEEGENERATED: 

--| The following WorkBench operations will cause regeneration of this 
--| file: 

E- | The panel's name is changed (not title) 

--| For panel: 

E- | viewspec 


--| The following WorkBench operations will also cause regeneration: 
E An item is deleted 

sl A new item is added to this panel 

item's name is changed (not title) 

item's data type is changed 

item's generates events flag is changed 

item's valids changed (if item is type string and connected) 
item's connection information changed 

--| For the panel items: 

d cancel, viewbody 
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procedure Initialize, Panel 
( Collection. Read 
in DRE.Tae GeeCollection Ptr )} is 


begin -- Initialize Panel 


Info 2:= new TAE- Tae Wot Evene Context: 

Info. Collection == Collection Rea 

TAE.Tae Co.Co Find (Info.Collection, “viewspec vy", Sime. Views 
TAE.Taeb Co.Co Find (Info.Collection, "“viewspec_t", Info. Targen 


exception 


when TAE.UNINITIALIZED_PTR => 
Text IO.Put Line ("Panel viewspec.Initialize Panel: " 
& "Collection Read not inrtzallzed ma 
raise; 





when TAE.Tae Co.NO, SUCH, MEMBER z» 
Text IO.Put, Line ("Panel, viewspec.Initialize Panel: " 
& "(View or"Target) met in Collection.. 
raise; 


end Initialize. Panel; 
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procedure Create Panel 
( Panel. State 
in TAE.Tae Wpt.Wpt Flags 
:z TAE.Tae Wpt.WPT PREFERRED; 


Relative Window 
in X Windows.Window 
:z X Windows.Null. Window ) is 
begin -- Create Panel 
if Info.Panel. Id - Tae.Null.Panel.Id then 


TAE.Tae Wpt.Wpt NewPanel 
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( Dummy EUM. 


Data Vm = INS Target, 
View_Vm => Info.View, 
Relative_Window => Relative. Window, 
User. Context NEO: 
Flags => Panel_State, 
Panel Id zcInfombPanel-rdo)- 
else 
Text IO.Put Line ("Panel (viewspec) is already displayed."); 
end if; 
exception 
men TAE UNINITIALIZED PTR => 
Text IO.Put Line ("Panel viewspec.Create Panel: " 
& "Panel was not initialized prior to creation."); 
raise; 
when TAE.TAE FAIL => 
Text IO.Put Line ("Panel viewspec.Create Panel: " 
Se Panel could not be created."); 
raise; 
end Create Panel; 
-- Connect Panel -- Subprogram BODY 
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procedure Connect Panel 
( Panel_State 
in TAE.Tae Wpt.Wpt Flags 
j= [AER . Tae Wot .WPT PREFERRED; 


Relative Window ! 
in X Windows.Window 
:z X Windows.Null Window ) is 


Dummy : Boolean; 
L EIMtéger:-l: 
label: String(1..80):=(others=>' '); 


begin -- Connect_Panel 


1f Info.Panel_Id = Tae.Null_Panel_Id then 
Create_Panel 
( Relative Window => Relative Window, 
Panel State -» Panel State ); 
else 
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TAE.Tae Wpt.Wpt SetPanelState (Info.Panel Id, Panel.State); 


end if; 

--ADDED 

strlen(component,L); 

label (1..(L+5)) :=componen: (E DR spec: 


TAE. Tae_Vm.Vm_SetString(Info.View, "speclabel",1,label(1..(L+5) IABIN 
Vm.P UPDATE); 


TAE.Tae Wpt.Wpt ViewUpdate(Info.Panel Id,"speclabel",Info.View,"speclabe 
L^ 





Dummy:-zTAE.Tae Wpt.Wpt Pending; 
exception 


when TAE.Tae Wpt.BAD STATE => 


Text IO.Put Line ("Panel viewspec.Connect Panel: * 
& "Invalid panel state."); 
raise; | 


end Connect. Panel; 


€ èo o 9 € ê ê ê ê è o o o o o o o 9 o o o o o o o ê O 06 9 9 9 o 9 9 9 o o 9 9 o 9 o o o o 9 € e o 9 9 ê o 060 060 060 06 4. 9 ù o o.» 5» 9 ec 


procedure Destroy Panel is 
begin -- Destroy Panel 

TAE.Tae Wpt.Wpt PanelErase(Info.Panel Id); 
exception 


when TAE.Tae Wpt.BAD PANEL ID => 


Text IO.Put Line ("Panel viewspec.Destroy Panel: S 
& "Info.PansSl Id is an invalid ia. "); 
raise; 


when TAE.Tae Wpt.ERASE NULL PANEL => 
-- This panel has not been created yet, or has already been destroyed. 


-- Trap this exception and do nothing. 
nun 


end Destroy_Panel; 


o e HEHEHE HEHEHE EE HEE EEE E lo e lo cl ll le le A O 
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-- begin EVENT HANDLERS 
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procedure cancel Event 
mnro : in TAE.Tae Wpt.Event Context Ptr ) is 


--| PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


ae array (1..1) ot String” (1. . TAETTae Taeconf.STRINGSIZE); 
Count : TAE.Taeint; 


begin -- cancel Event 


-- Begin default generated code 


EANECSTae-Vm.Vm Extract. Count (Info.Parm Ptr, Count); 
ur leourt - 0 then 

TAE.Tae Vm.Vm Extract. SVAL (Info.Parm Ptr, l1, Value(1)); 
end if; 


-- End default generated code 


-- Begin generated code for Connection 


Connect Panel (TAE.Tae Wpt.WPT INVISIBLE); 
Panel viewpsdl.Connect Panel (TAE.Tae Wpt.WPT VISIBLE); 


-- End generated code for Connection 


end cancel Event; 
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procedure viewbody Event 
( Info : in TAE.Tae Wpt.Event Context Ptr ) is 


--| PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


Maite tarta lol) of String (1I.-TAE-Tae Taeconf.STRINGSIZE); 
Count : TAE.Taeint; 
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begin -- viewbody. Event 


-- Begin default generated code 


TAE.Tae Vim.VimExtracte*countet Into Parmebtr "counts 
if Count > O then 


TAE. Tae_Vm.Vm_Extract_SVAL (Into.Parm_Ptr, 1 Value TIE 
end if; 


-- End default generated code 


-- Begin generated code for Connection 


— — 


Panel, viewbody.Connect Panel (TAE.Tae Wpt.WPT VISIBLE); 


-- End generated code for Connection 


end viewbody Event; 


-- end EVENT HANDLERS 
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procedure Dispatch Item 
( User, Context, Ptr : in TAE.Tae Wpt.Event Context Ptr ) is 


begin -- Dispatch Item , 


if TAE.Tae Misc.s, equal ("cancel", User Context Ptr.Parm Name) then 
cancel Event (User, Context, Ptr); 


elsif TAE.Tae Misc.s, equal ("viewbody", User, Context, Ptr.Parm Name) 
then 


viewbody Event (User. Context Ptr); 
end if; 


end Dispatch Item; 


end Panel viewspec; 
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O. PANEL VIEWBODY PACKAGE 


1. PAN VIEWBODY S.A 


ma =~ TARE Plus Code Generator version V5.1 


-- *** File : pan viewbody s.a 
-- *** Generated : Jul 13 16:13:09 1992 
-- *** Revised by : Dogan Ozdemir 


m. *k ck ck ck ck ck ke ck ck ck ck oe ck ck de Ke KKK KKK KK KK KK KK KKK KKK KK KK KKK KKK KKK KK KK KKK KK KK KKK KKK 


-- * Panel_viewbody -- Package SPEC 


* ck ck ck ck ck ck ce ck de ck ck ck ck ck ck e ck e ck ck ck ode ck e ck ck ck ck cock ck ck ck ck ce ck e ck ck ce ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ce ck e ck ck oe eoe + + x 


math TAE; 
with X Windows; 


package Panel, viewbody is 


--| PURPOSE: 

--| This package encapsulates the TAE Plus panel:  viewbody 

--| These subprograms enable panel initialization, creation, destruction, 
--| and event dispatching. For more advanced manipulation of the panel 
--| using the TAE package, the panel's Event Context (Info) is provided. 
--| It includes the Target and View (available after initialization) 

--| and the Panel.Id (available after creation). 


--| REGENERATED: 

--| The following Workbench operations will cause regeneration of this 
--| file: 

m | The panel's name is changed (not title) 

--| For panel: 


E- | viewbody 
Info : TAE.Tae Wpt.Event Context Ptr; -- panel information 
-- Initialize_Panel -- Subprogram SPEC 
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procedure Initialize. Panel 


L Collection. Read -- TAE Collection read from 
mna rae. co.Collection Ptr ) > -- resource file 
--| PURPOSE: 
--| This procedure initializes the Info.Target and Info.View for this 
--| panel 


D 


--| EXCEPTIONS: 

--| TAE.UNINITIALIZED PTR is raised if Collection Read not initialized 
--| TAE.Tae Co.NO SUCH MEMBER is raised if the panel is not in 

--| Collection. Read 
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procedure Create Panel 
( Panel. State -- Flags sent to Wpt NewPanel. 
in TAE.Tae Wpt.Wpt Flags 
:;- TAE.Tae Wpt.WPT PREFERRED; 


Relative Window -- Panel origin is offset frem 
in X Windows.Window -- this X Window. Null Window 
:- X Windows.Null.Window ); -- uses the root window. 
--| PURPOSE: 


--| This procedure creates this panel object in the specified Panel. State 
--| and stores the panel Id in Info.Panel Id. 

i 

=- | EXCEPTTONS: 

--| TAE.UNINITIALIZED PTR is raised if the panel is not initialized 
--| TAE.TAE FAIL is raised if the panel could not be created 
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procedure Connect, Panel 
( Panel State 
in TAE.Tae Wpt.Wpt Flags 
:- TAE.Tae Wpt.WPT PREFERRED; 


Relative Window -- Panel origin is offset from 
in X Windows.Window -- this X Window. Null Window 
¿= X Windows.Null. Window ); -- uses the root window. 
--| PURPOSE: 


--| If this panel doesn't exist, this procedure creates this panel object 
-- | in the specifiec Panel_State and stores the panel Id in 

E Info. .Panel_lId: 

--| If this panel does exist, it is set to the specified Panel State. 
=a In this case, Relative_Window is ignored. 


=- | EXCERTTONS: 
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EXSISTPAE-UNINITIALIZED PTR is raised from Create Panel 1f the panel is 
pe Motwinitialized 

--| TAE.TAE_FAIL is raised from Create_Panel if the panel could not be 
==) created 

=—=| fhEsTae wpt.BAD STATE is raised if the panel exists and the 

--| Panel State is an invalid state 
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procedure Destroy Panel; 
--| PURPOSE: 


--| This procedure erases a panel from the screen and de-allocates the 
--| associated panel object (not the target and view). 


--| EXCEPTIONS: 
--| TAE.Tae Wpt.BAD PANEL ID is raised if Info.Panel Id is an invalid 


--| NOTES: 
--| Info.Panel Id is set to TAE.NULL PANEL. ID, and should not referenced 
--| in any Wpt call until it is created again. 
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procedure Dispatch Item 


User Comtext Ptr -- Wpt Event Context for a PARM 
Zn BNIGeS3NbCt.Event-Context Ptr ); -- event. 
SE UR POSE : 


--| This procedure calls the Event Handler specified by User Context Ptr 


eI 
== EXCEPTIONS: 
--| Application-specific 


end Panel viewbody; 
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2. PAN VIEWBODY B.A 


*** TAE Plus Code Generator version V5.1 


*** File : pan viewbody D.a 
*** Generated +: Jul 1300]6:13:0990485927 
*** Revised by : Dogan Ozdemir 


X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X AA NAAA AAA AAA A AAA AAA A de e oc oe ode oe oe cc c de c oc oe 
* 

x Panel_viewbody -- Package BODY 

* 


"Kk ck oe cc cfe De Ke Ke Ke KKK KKK KKK KK KK KK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KKK KKK KK KKK KKK 


with TAE; use TAE; 
With) I0; 
with Global 
use Text IO,Global; 


-- One "with" statement for each connected panel. 
with Panel viewspec; 


package body Panel viewbody is 


NOTE T 

For each parameter that you have defined to be "event-generating" in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenation of the parameter name and " Event". 
Add application-dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event.) 


You may want to flag any changes you make to this file so that if 
you regenerate this file, you can more easily cut and paste your 
modifications back in. 


REGENERATED: 
The following WorkBench operations will cause regeneration of this 
file: 
The panel's name is changed (not title) 
For panel: 
viewbody 


The following WorkBench operations will also cause regeneration: 
An item is deleted 
A new item is added to this panel 
item's name is changed (not title) 
item's data type is changed 
item's generates events flag is changed 
item's valids changed (if item is type string and connected) 
item's connection information changed 
For the panel items: 
cancel 
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procedure Initialize Panel 
( Collection. Read 
im TAE. Tas Co ollection Ptr ) -is 


--| NOTES: (none) 


begin -- Initialize_Panel 
mCon = new TAE.Tae Wpt.Event, Context; 
uu collection :z Collection. Read; 


ENSE SIQecco.Co Find (Into.Collection, "viewbody_v", Info.View); 
E TaescoscomEind (Info.collSction, “viewbody t*, Info.Target); 


exception 


when TAE.UNINITIALIZED_PTR => 
Text_Io.Put_Line ("Panel_viewbody.Initialize_Panel: " 
& "Collection Read not initialized."); 
raise; 


when TAE.Tae Co.NO SUCH MEMBER => 
Text IO.Put Line ("Panel, viewbody.Initialize Panel: " 
S c pcew or Target) not in Collection."); 
raise; 


end Initialize. Panel; 
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procedure Create Panel 
( Panel, State 
in TAE.Tae Wpt.Wpt Flags 
:z TAE.Tae Wpt.WPT PREFERRED; 


Relative Window 
in X Windows.Window 
:z X Windows.Null.Window ) is 


begin -- Create Panel 
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if Info. Paneleilaw="Tac.Null Panel Id then 
TAE.Tae Wpt.Wpt NewPanel 


( Dummy c: 
Data, Vm => Info.Target, 
View_Vm => Info.View, 
Relative_Window => Relative_Window, 
User Context => nie 
Flags => Panel_State, 
Panel Id => Into. Panel HINA 


else 


Text IO.Put Line ("Panel (viewbody) is already displayed. 


end E: 
exception 


when TAE.UNINITIALIZED_PTR => 


Text IO.Put Line ("Panel viewbody.Create Panel: á 
& “Panel was not imitialized prior to creation"). 
raise; 


when TAE.TAE_ FAIL => 


Text IO.Put Line ("Panel viewbody.Create Panel: " 
& "Panel could not be created."); 
raise; 


end Create Panel; 
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procedure Connect, Panel 
( Panel. State 
: in TAE.Tae Wpt.Wpt Flags 
:= TAE.Tae Wpt.WPT PREFERRED; 


Relative Window 
in X Windows.Window 
:z X Windows.Null Window ) is 


Dummy : Boolean; 
L : Integer:=1; 
label; String(l1.7390) z(otherss '); 
begin -- Connect Panel 
if Info.Panel. Id - Tae.Null Panel Id then 


Create Panel 
( Relative Window -» Relative Window, 
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. . è e. . e. e e 


Panel State -» Panel. State ); 


else 
Taba Dt. Wet. SetPanelstate (Info.Panel Id, Panel State); 
end ifp 
- -ADDED 
str len(component, L); 
label (le (L+5)) : =component (1..L)s£” .body"; 


WAE. Tae_Vm.Vm_SetString(Info.View,"bodylabel",1,label(1..(L+5)), ,TAE.Tae_ 
Vm.P_UPDATE) ; 


TAE.Tae Wpt.Wpt ViewUpdate(Info.Panel Id,"bodylabel",Info.View,"bodylabe 
E". 
Dummy :=TAE.Tae_Wpt .Wpt_Pending; 


exception 


when TAE.Tae_Wpt.BAD_STATE => 
Text IO.Put Line ("Panel viewbody.Connect Panel: " 
& "Invalid panel state."); 
raise; 


end Connect. Panel; 
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procedure Destroy Panel is 


begin -- Destroy Panel 


TAE.Tae Wpt.Wpt PanelErase(Info.Panel, Id); 
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exception 


when TAE.Tae Wpt.BAD PANEL ID => 
Text IO.Put Line ("Panel viewbody.Destroy Panel:  " 
SO Panel Id is an invalid id."); 
raise; 


when TAE.Tae Wpt.ERASE NULL, PANEL -» 
-- This panel has not been created yet, or has already been destroyed. 
-- Trap this exception and do nothing. 


Aull; 


end Destroy_Panel; 
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-- begin EVENT HANDLERS 
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procedure cancel_Event 
( Info + ain TAE:;Tae. WptuEvenEWNG5ntext Ptr vs 


--| PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


Value : array (1..1) of String (1..TAE.Tae Taeconf.STRINGSIZE); 
Count : TAE Taeanc- 


begin -- cancel Event 

-- Begin default generated code 

TAE.Tae Vm.Vm ExiEact Count (Info. Parmerce.c, Gomntos 

1f Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(1)); 

end if; 

-- End default generated code 

-- Begin generated code for Connection 

Connect Panel (TAE.Tae Wpt.WPT INVISIBLE); 

Panel viewspec.Connect Panel (TAE.Tae Wpt.WPT VISIBLE); 

-- End generated code for Connection | 
end cancel. Event; 





-- end EVENT HANDLERS 
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procedure Dispatch, Item 
( User Context Ptr : in TAE.Tae Wpt.Event Context Ptr ) is 
begin -- Dispatch, Item 
if TAE.Tae Misc.s equal ("cancel", User Context Ptr.Parm Name) then 
cancel Event (User. Context. Ptr); 
end if; 


end Dispatch Item; 


end Panel viewbody; 
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P. PANEL SELECT PACKAGE 


l. PAN SELECT S.A 


EB ** TAE Plus Code Generator version V5.1 


ELO s File : pan select s.a 
-- *** Generated : Aug i2 11:50:32 1992 
-- *** Revised by : Dogan Ozdemir 


= keke keke e ck ce ck KKK KKK KKK KK KKK KKK KKK KKK KKK RK KKK KKK KKK KKK KKK KK KKK KKK KKK 
* 
-- * Panel select -- Package SPEC 

* 


"k ck ck ck ck ck ce ck ck ck ck ce oce ck ck e ck oce ck e oe oce ck ck ck ce ce ce ok ode oe ce ce oe ck ok ok e ck ck ck ck ck oe ce ck ck ck ok ck ck ce ce ck ck ck coke ok ck oe oe ok e de xoxo 


-— — 


mith TAE; 
with X Windows; 


package Panel select is 


--| PURPOSE: 

--| This package encapsulates the TAE Plus panel: select 

--| These subprograms enable panel initialization, creation, destruction, 
--| and event dispatching. For more advanced manipulation of the panel 
--| using the TAE package, the panel's Event Context (Info) is provided. 
--| It includes the Target and View (available after initialization) 
Seanad the Panel Id (available after creation) . 


--| REGENERATED: 

--| The following Workbench operations will cause regeneration of this 
eI file: 

E The panel's name is changed (not title) 

--| For panel: 


x select 
EIE CTAE.Tae Wpt.Event, Context, Ptr; -- panel information 
1 
-- . Initialize_Panel -- Subprogram SPEC 
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procedure Initialize_Panel 


( Collection_Read -- TAE Collection read from 
PWERAE.Tae Co.Collection- Ptr ); -- resource file 
=—| PURPOSE: 
--| This procedure initializes the Info.Target and Info.View for this 
==| panel 
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--| EXCEPTIONS: 

--| TAE.UNINITIALIZED PTR is raised if Collection Read moci miee MI 
--| TAE.Tae Co.NO SUCH MEMBER is raised if the panel is not in 

--| Collection, Read 
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procedure Create Panel 
( Panel. State -- Flags sent to Wpt NewPanel. 
in TAE.Tae Wpt.Wpt Flags 
:z TAE.Tae Wpt.WPT PREFERRED; 


Relative Window -- Panel origin is offset fiom 
in X Windows.Window -- this X Window. Null Window 
: X Windows.Null. Window ); -- uses the root window. 
--| PURPOSE: 


--| This procedure creates this panel object in the specified Panel State 
--| and stores the panel Id in Info.Panel Id. 

| 

--| EXCEPTIONS: 

--| TAE.UNINITIALIZED PTR is raised if the panel is not initialized 
--| TAE.TAE FAIL is raised if the panel could not be created 
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procedure Connect, Panel 
( Panel, State ; 
in TAE.Tae Wpt.Wpt Flags 
:z TAE.Tae, WpC.WPT PREFERRED; 


Relative. Window -- Panel origin is offset from 
in X Windows.Window -- this X Window. Null. Window 
:z X Windows.Null. Window ); -- uses the root window. 
--| PURPOSE: 


--| If this panel doesn't exist, this procedure creates this panel object 
= in the specifiec Panel_State and stores the panel Id in 

== Info.Panel_ld. 

--| If this panel does exist, it is set to the specified Panel_State. 
== | In this case, Relative_Window is ignored. 
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--] EXCEPTIONS: 

REESISTAENNNINITIALIZED PTR is raised from Create Panel if the panel is 
--| NeumInstialized 

DOTAR. TAECFPAIL 1s raised from Create. Panel 1f the panel Could not be 
--| created 

--| TAE.Tae Wpt.BAD STATE is raised if the panel exists and the 

-- | Panel State is an invalid state 
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procedure Destroy Panel; 


--| PURPOSE: 
--| This procedure erases a panel from the screen and de-allocates the 
--| associated panel object (not the target and view). 


=-| EXCEPTIONS: 
--| TAE.Tae Wpt.BAD PANEL ID is raised if Info.Panel Id is an invalid 


--| NOTES: 
--| Info.Panel. Id is set to TAE.NULL. PANEL. ID, and should not referenced 
--| in any Wpt call until it is created again. 
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procedure Dispatch Item 


( User, Context, Ptr -- Wpt Event Context for a PARM 
in TAE.Tae Wpt.Event Context Ptr ); -- event. 
--| PURPOSE: 


--| This procedure calls the Event Handler specified by User_Context_Ptr 


s 
--| EXCEPTIONS: 
--| Application-specific 


end Panel. select; 
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2. PAN SELECT B.A 


-- *** TAE Plus Code Generator version V5.1 
-- *** File: pan select b.a 
-- *** Generated: Aug 12. | 1 esee 32 


eye 3k ck ck ck XY ce se de ck ck ke ce ck ck de ck ck e ck de ck ck ck ck e e e ck ck e ck ck ck ck ck ck ck e ck ck ck oe ck ck ck ck ck oe oc ck oe ck ck ok ok de cx oe ck ook koe xo ck ook oo 
* 

-- * Panel_select == Package BODY 
* 


Zm X X X X k+ X X X X X X X X X X X X X X k + X X X X X Y X kY kX 2:2 22:2: 222222 k+ + X + + + k+ h+ + + k+ + k k+ k+ + + + k+ + k+ + de 


with TAE; use TAE; 
with TexESIO. 

witn Global; 

use Global,Text. IO; 


-- One "with" statement for each connected panel. 
with Panel. cdelwarn; 

with Panel, savecomp; 

with Panel compsel; 

with Panel integrt; 


package body Panel select is 


--| NOTES: 

--| For each parameter that you have defined to be "event-generating" in 
--| this panel, there is an event handler procedure below. Each handler 
--| has a name that is a concatenation of the parameter name and " Event". 
--| Add application-dependent logic to each event handler. (As generated 
--| by the WorkBench, each event handler simply logs the occurrence of 
--| the event.) 


--| You may want to flag any changes you make to this file so that if 
--| you regenerate this file, you can more easily cut and paste your 
--| modifications back in. 


--| REGENERATED: 

--| The following WorkBench operations will cause regeneration of this 
--| file: 

zl The panel's name is changed (not title) 

--| For panel: 

2 select 


--| The following WorkBench operations will also cause regeneration: 

ll An item is deleted 

c A new item is added to this panel 

item's name is changed (not title) 

item's data type is changed 

item's generates events flag is changed 

item's valids changed (if item is type string and connected) 
item's connection information changed 

--| For the panel items: 


55555 
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"m. ——— 


E- | delete, save, PEINE integrate, 
--| cancel, help 
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procedure Initialize Panel 
( Collection, Read 
1n WRNENPTae ComCcollection»Ptr*) is 


begin -- Initialize, Panel 


Info := new TAE.Tae Wpt.Event. Context; 

NEC ColNection :- Collection. Read; 

REESE 3e-Co.Co Findwélnfo.Collectzon, "select, v", Info.View); 
EE DIae-Co-Co Find (Info.Collectson, "select t", Info.Target); 


exception 


when TAE.UNINITIALIZED_PTR => 
ncmo Puc Line ("Panel select.Init3ialize Panel: ” 
co e cteron. Redad not i1nitialized.”): 
False; 


when TAE.Tae_Co.NO_SUCH_MEMBER => 
E NIC PUE Line (“Panel select.Initialize Panel: “ 
wor Target) not in Collection."); 
Base: 


sunesInitialize Panel; 
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procedure Create Panel 
( Panel. State 
in TAE.Tae Wpt.Wpt Flags 
:z TAE.Tae Wpt.WPT PREFERRED; 


Relative Window 
in X Windows.Window 
:2 X Windows.Null Window ) is 


begin -- Create Panel 
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if Info.Panel_ Id = Tae Null Panel lid then 
TAE.Tae Wpt.Wpt NewPanel 


( Dummy 2» "*, 
Data Vm => Into: larger: 
View_Vm => Info.View, 
Relative_Window => Relative_Window, 
User_Context = MO 
Flags => Panel State, 
Panel. Id => Info. Panel T 


else 
Text IO.Put Line ("Panel (select) is already displayed."); 
Gnd mt. 


exception 


when TAE.UNINITIALIZED_PTR => 
Text IO.Put Line ("Panel select.Create Panel: " 
& "Panel was not initialized prior to» creation”); 
raise; 


when TAE.TAE FAIL => 
Text IO.Put Line ("Panel select.Create Panel: " 
& "Panel could not be created."); 
raise; 


end Create Panel; 
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procedure Connect Panel 
( Panel. State 
in TAE.Tae Wpt.Wpt Flags 
:2 TAE.Tae Wpt.WPT PREFERRED; 


Relative Window 
in X Windows.Window 
:z X Windows.Null Window ) is 
Dummy : Boolean; 
L : Integer:sl 
label: String(l:.80)0tobHdrc- 1 


begin -- Connect Panel 


if Info.Panel Id - Tae.Null. Panel. Id then 
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Create Panel 


( Relative Window -» Relative Window, 
Panel State => Panel State ); 
else 
TAE.Tae Wpt.Wpt SetPanelState (Info.Panel Id, Panel State); 
end if; 
ESADDED 


strlen(component,L); 
INSEL Lb):sconmpenent(1..L); 


upade-vm.Vm SetString(Info.View,"label",1,label(1..L),TAE.Tae. Vm.P UPD 
ATEN; 


TAE.Tae Wpt.Wpt ViewUpdate(Info.Panel Id,"label",Info.View,"label"); 
Dummy:-zTAE.Tae Wpt.Wpt Pending; 


exception 


when TAE.Tae Wpt.BAD STATE => 


Text IO.Put Line ("Panel select.Connect Panel: 0 
& "Invalid panel state."); 
raise; 


end Connect Panel; 
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procedure Destroy Panel is 


begin -- Destroy Panel 
TAE.Tae Wpt.Wpt PanelErase(Info.Panel Id); 
exception 


when TAE.Tae Wpt.BAD PANEL ID => 
Text IO.Put Line ("Panel select.Destroy Panel: " 
cenen oane] Id is an invalid id."); 
raise; 


when TAE.Tae Wpt.ERASE NULL PANEL => 

-- This panel has not been created yet, or has already been destroyed. 
ENTIS this ekxcepticn and'do nothing. 
mul 1; 
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end Destroy Panel; 


o H o HEHEHE HEHEHE HEHE HHH eee eee eee tee geeeye 


-- begin EVENT HANDLERS 
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procedure delete Event 
( Info : in TAE.Tae Wpt.Event Context Ptr ) is 


--| PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


Value : array (1..1) of String (1..TAE.Tae Taeconf.STRINGSIZE); 
Count : TAE. Taeceint, 


begin -- delete_Event 


-- Begin default generated code 


TAE .Tae-Vm:vVm Extract Count (Inte-ParmsSPtr courier 
if Count >s 0m then 

TAE.Tae Vm.Vm Extract SVAL (Info.Parm Ptr, 1, Value(1)); 
Sand LE 


-- End default generated code 


-- Begin generated code for Connection 


Connect_Panel (TAE.Tae_Wpt .WPT_INVISIBLE) ; 
Panel cdelwarn.Connect Panel (TAE.Tae Wpt.WPT VISIBLE); 


-- End generated code for Connection 


end delete Event; 
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procedure save Event 
( Info : in TAE.Tae_Wpt .Eventacontiext Prius 
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--| PURPOSE: 
ESISEVENT HANDLER. Insert application specific information. 


pobueccarrtay (l..1) of String (1l..TAE.Tae Taeconf.STRINGSIZE): 


CountC: TAE.Taeint; 
EMI c".wnteger:zl; 


D integer: =0; 
Momrnle  :f£ile type; 
pele sname:String(1..7) := "ls file"; 
enr rene ¿String (10.80) :=»(others=> "er; 
number “Integer: =1; 
Dummy : Boolean; 
begin -- save Event 


-- Begin default generated code 
NEBTaesvm.vm Extract Count (Info.Parm.Ptr, Count); 
AA Unt » 0 then 
Mier Tae. Vm.Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(l)): 
end 1f; 


-- End default generated code 


-- Begin generated code for Connection 
- ADDED 
strlen(path,D); 
Derectory()..D):=spath(1..D); 
loop 

HI (IT) = '/" then 


currentedirectory(cur- dir index)(l..C«1):scurrent(l.. 


mu *; 
curedir-Jndex:zcur dir-index-*Il; 
Ga 
else 
eurrent (Cc) +=Directory (1); 
ucc 
end if; 
I:=I+1; 
if I=D+1 then exit; 
end if; 
end loop; 


Weren rectory cur_dir_index)(1..C+1}):=scurrent(1..C-1)&"/ 


IED- 27 then 


dite tory array := Directory((D-26)..D); 
else 

E rector array <= Directory (1l..2); 
end see 


eem call (Sls -F *"&Diréctory(l1..D)&«"- "&"Is fl1le*'); 
list_directory(ls_file,file_name,file_vec,number); 
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strlen(component,L); 


TAE.Tae_Vm.Vm_SetString(Panel_savecomp.Info.View, "compname",1,component ( 
l..L),TAE.TaesVmoPSDEDATEU 


TAE.Tae Wpt.Wpt, ViewUpdate(Panel savecomp.Info.Panel Id, "compname", Panel 
 Savecomp.Info.View,"compname"); 


TAE.Tae Wpt.Wpt SetStringConstraints(Panel savecomp.Info.Panel Id,"direc 
tory",taeint(number),file vec); 


TAE.Tae Vm.Vm SetString(Panel, savecomp.Info.View,"directorylabel",l,dire 
ctory array, TAE.Tae Vm.P UPDATE); 


TAE. Tae_Wpt .Wpt_ViewUpdate (Panel_savecomp.Info.Panel_lId, "directorylabel" 
,Panel savecomp.Info.View,"directorylabel"); 

Dummy:zTAE.Tae Wpt.Wpt Pending; 

system_calil(%rm ls filens 

svstém call ("rm directory rillene 


Connect Panel (TAE.Tae Wpt.WPT INVISIBLE); 
Panel savecomp.Connect Panel (TAE.Tae Wpt.WPT VISIBLE); 


-- End generated code for Connection 


Pd 


end save Event; 
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procedure print Event 
(Info -in TAE:.TaecWpMEvent9wonstexrSEEP IS 


--| PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


Value : array (1..1) of String (1l..TAE.Tae Taeconf.STRINGSTIEEBUE 
Count : TAE.Taeint; 

- ADDED 

J PeIinteger: le 


begin -- print_Event 
-- Begin default generated code 


TAE.Tae.Vm.Vm- Extract" Coutit"(InfowParm9"PEr, Goune): 
lf Count > 0 them 
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db o HM o 


Ex rTae-Vm.Vm Extract .SVAL (Info.Parm.Ptr, 1, Value(1)); 
end 1f; 
-- End default generated code 
strlen (component, P); 
strlen(library,J); 


system call(com&"cv "&library(1..J)&" "&component(1l..P)&" outpsdl 
EPutspec outbody"); 


if TAE.Tae Misc.s equal (Value(1),"PSDL") then 
Em Éremscall("lpr outpsdl"); 
TAE.Tae Wpt.Wpt PanelMessage(info.panel id,"SPOOLED TO DEFAULT 
PRINTER"); 
elsif TAE.Tae Misc.s equal (Value(1), "Spec") then 
system callí("lpr outspec"); 
TAE.Tae Wpt.Wpt PanelMessage(info.panel id,"SPOOLED TO DEFAULT 
PRINTER") ; 
elsif TAE.Tae_Misc.s_equal (Value(l), "Body") then 
system call(í("lpr outbody"); 
TAE.Tae Wpt.Wpt PanelMessage(info.panel id,"SPOOLED TO DEFAULT 
ERENTER"):; 
end 1f; 
Exstem-call("rm outpsdl"); 
e stem. call("rm outspec"); 
System_call("rcm outbody"); 


ena print_Event; 
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procedure integrate Event 
(Tafto enn TAE. Tae _Wpt. Event Context Ptr ) is 
-- | PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


LAUS irrES "of string (l.-TAE.Tae. Taeconf.STRINGSIZE); 
count wTAE.Taeint; 

ites, © so integer:=1; 

tester criaallo.7):= (others=>' '); 

genfile : File_type; 


begin -- integrate_Event 
-- Begin default generated code 


Toe teemvme vn pxtract_Count (Info.Parm Ptr, Count); 
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if Count »»then 

TAE.Tae Vm.Vm Extract SVAL (Info.Parm"Ptr;. 7 varum 
end if; 
- ADDED 


strlen(component,L); 
stwlen(library, Sm 
strlen(Query_psdl,Q); 
system call(com&"cv "&library(l..S)&" “&eemponenel we 
retrieved psdl retrieved spec retrieved body"); 
if Query then 
system call(parse&"main retrieved psdl "&Query psd1(1..9)); 
else 
system callí(parse&"parse retrieved psdl"); 
end if; 


open(genfile,mode-»in file,name-»"genfile"); 
get (genfile,testistring) ; 
close(genfile); 


nimtizeststring(iee.7) = %generic" shen 
system_call("cp softbase txt.gen message"); 
else 
system call("cp softbase txt.nongen message"); 
end uf 


for erase in 1..7 loop 
teststring(erase):- ' '; 

end loop; 

System call(í("rm genfile"); 


-- End default generated code 


-- Begin generated code for Connection 
Connect Panel (TAE.Tae Wpt.WPT INVISIBLE); 
Panel integrt.Connect Panel (TAE.Tae Wpt.WPT PREFERRED); 
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-- End generated code for Connection 


end integrate_Event; 
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procedure cancel Event 
( Info : in TAE.Tae Wpt.Event Context Ptr ) is 


-= = [IPUR POSE: 
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ÉL Lu A. i-o PA 


--| EVENT HANDLER. Insert application specific information. 


Daccxarray (1..1) of String (1l..TAE.Tae. TaecoufETRINGSIZE): 
Sount > TAE.Taeint: 


begin -- cancel_Event 
-- Begin default generated code 
tian. rae Vm.vm Extract Count (Info.ParmrzPtr, Count); 
ARC ount > 0 then 
Pase VMVM_ EXtract_SVAL (Info.Parm Ptr, 1, Value(1)); 
end if; 
-- End default generated code 
-- Begin generated code for Connection 
Connect Panel (TAE.Tae Wpt.WPT INVISIBLE); 
Panel compsel.Connect Panel (TAE.Tae Wpt.WPT VISIBLE); 
-- End generated code for Connection 
end cancel Event; 


-- end EVENT HANDLERS 
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procedure Dispatch, Item 
( User Context Ptr : in TAE.Tae Wpt.Event Context Ptr ) is 


begin -- Dispatch Item 


if TAE.Tae Misc.s equal ("delete", User Context Ptr.Parm Name) then 
delete Event (User Context Ptr); 

elsif TAE.Tae Misc.s, equal ("save", User Context Ptr.Parm Name) then 
Save Event (User Context Ptr); 

elsif TAE.Tae Misc.s equal ("print", User Context Ptr.Parm Name) then 
print_Event (User_Context_Ptr); 

elsif TAE.Tae_Misc.s_equal ("integrate", User_Context_Ptr.Parm_Name) 

then 

integrate_Event (User_Context_Ptr); 

elsif TAE.Tae_Misc.s_equal ("cancel", User:Context_Ptr.Parm_Name) then 
cancel_Event (User_Context_Ptr); 

end if; 


end Dispatch Item; 


end Panel select; 
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Q. 


PANEL SAVECOMP PACKAGE 


1. PAN SAVECOMP S.A 


*** TAE Plus Code Generator version V5.1 
rF SEILE : pan_savecomp_s.a 

*** Generated <= Aug 12 II:50:32 H7 
*** Revised by : Dogan Ozdemir 


HAC AAA A kK X X + X X X X X X kX X KX X X X X X X X X X k X X X X X X X X X X X ++ kK + K X k+ + X X +X k+ k+ + + + ++ + + A 
* 

2 Panel_savecomp -Pa kagon TEE 

* 


ck ck ck ck ck ck ook ck oc ce ok de ck ck oe co cie e ce che coke je ck e cde ck ce ce e e e e e e e e e e e re e e e e e e oie coke cie coke e A e e e 


with TAE; 
with X_Windows; 


package Panel_savecomp is 


PURPOSE: 

This package encapsulates the TAE Plus panel: savecomp 

These subprograms enable panel initialization, creation, destruction, 
and event dispatching. For more advanced manipulation of the panel 


using the TAE package, the panel's Event_Context (Info) is provided. 
It includes the Target and View (available after initialization) 
and the Panel_Id (available after creation). 


REGENERATED: 
The following Workbench operations will cause regeneration of this 
file: 
The panel's name is changed (not title) 
For panel: 


=> savecomp 
Info : TAE.Tae_Wpt Event Context PC Y: -- panel information 
A EAN O IS GE dr... O A TE 
" Initialize Panel -- Subprogram SPEC 
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procedure Initialize Panel 


( Collection. Read -- TAE Collection read from 
in TAE.Taé_Co.Collecticnereaa -- resource file 
--| PURPOSE: 
--| This procedure initializes the Info.Target and Info.View for this 
--| panel 
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--| EXCEPTIONS: 

--| TAE.UNINITIALIZED PTR is raised if Collection, Read not initialized 
--| TAE.Tae Co.NO.SUCH MEMBER is raised if the panel is not in 

--| Collection, Read 
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procedure Create Panel 
( Panel, State -- Flags sent to Wpt NewPanel. 
in TAE.Tae Wpt.Wpt Flags 
:- TAE.Tae Wpt.WPT PREFERRED; 


Relative Window -- Panel origin is offset from 
in X_Windows .Window -- this X Window. Null Window 
¿= X Windows.Null. Window ); -- uses the root window. 
--| PURPOSE: 


--| This procedure creates this panel object in the specified Panel State 
Sand stores Che panel Id in Info.PaneY_ld. 

$3] 

UL SEXCBPTIONS: 

--| TAE.UNINITIALIZED PTR is raised if the panel is not initialized 
--| TAE.TAE FAIL is raised if the panel could not be created 
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procedure Connect Panel 
( Panel State 
in TAE.Tae Wpt.Wpt Flags 
:z TAE.Tae Wpt.WPT PREFERRED; 


Relative Window -- Panel origin is offset from 
in X Windows.Window -- this X Window. Null Window 
:— X Wendows.Null. Window ); -- uses the root window. 
--| PURPOSE: 


--| If this panel doesn't exist, this procedure creates this panel object 
ze in the specifiec Panel State and stores the panel Id in 

Sl Into Panel Td. 

--| If this panel does exist, it is set to the specified Panel State. 
==" | In this case, Relative_Window is ignored. 


SESISEEXCEPTIONS: 


DOS 


--| TAE.UNINITIALIZED-PTR is raised from Create_Panel if the panel is 
= not initialized 

--| TAE.TAE FAIL is raised from Create Panel if the panel could not be 
--| created 

--| TAE.Tae Wpt.BAD STATE is raised if the panel exists and the 

--| Panel State is an invalid state 
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procedure Destroy Panel; 


== | PURPOSE: 
--| This procedure erases a panel from the screen and de-allocates the 
--| associated panel object (not the target and view). 


--| EXCEPTIONS: 
--| TAE.Tae Wpt.BAD PANEL ID is raised if Info.Panel Id is an invalid 


--| NOTES: 
--| Info.Panel Id is set to TAE.NULL PANEL ID, and should not referenced 
--| in any Wpt call until it is created again. 
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procedure Dispatch_Item 





( User_Context_Ptr -- Wpt Event Context for a PARM 
in TAE.Tae Wpt.Event Context Ptr ); -- event. 
--| PURPOSE: 


d | 
--| This procedure calls the Event Handler specified by User Context Ptr 
| 


--| EXCEPTIONS: 
--| Application-specific 


end Panel. savecomp; 
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2. PAN SAVECOMP B.A 


fe TARE Plus Code Generator version V5.1 
ioe Files pan_savecomp_b.a 
*** Generated: Eug 12 11:50:32 1992 


de e ode de ode e ode e X X e ode oe oe de ode X de oe oe ode e ode oe ce oe ode ode cfe oe ode ode ode ode oe de oe de ce ce ode oe oe oe de ode ode ode oe de ode ce e oe e oe ce oe ode de AAA AA h 


i Panel savecomp -- Package BODY 
* 


E keke kee KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KK 


with TAE; use TAE; 
Lc Text IO; 

wIth Global; 

use Global, Text. IO; 


-- One "with" statement for each connected panel. 
with Panel select; 


package body Panel savecomp is 


NOTES: 

For each parameter that you have defined to be "event-generating" in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenation of the parameter name and " Event". 
Add application-dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event.) 


You may want to flag any changes you make to this file so that if 
you regenerate this file, you can more easily cut and paste your 
dediti cations back in. 


REGENERATED: 
The following WorkBench operations will cause regeneration of this 
file: 
The panel's name is changed (not title) 
For panel: 
savecomp 


The following WorkBench operations will also cause regeneration: 
An item is deleted 
A new item is added to this panel 


An item's name is changed (not title) 
An item's data type is changed 
An item's generates events flag is changed 
An item's valids changed (if item is type string and connected) 
An item's connection information changed 
For the panel items: 
directorylabel, cancel, ok, compname, 
directory 
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zB) 


selected «String (Msi others NA c 

ls file  :file type; 

file name: Strang (1.2 LS files 

number *integer:=1; 

-- Initialize Panel -- Subprogram BODY 
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procedure Initialize Panel 
( Collection. Read 
in TAE.Tae_CosGellectiton Per) “ve 


begin -- Initialize_Panel 


Info := new TAE.Tae_Wpt.Event_Context; 

Info.Collection := Collection_Read; 

TAE.Tae_Co.ComFind (Info .Gcéilection /~™savecomp v4, Into. wens 
PAE .Tae_Co.Co_Finded Info.Collection, "“savecomp TT 


exception 


when TAE.UNINITIALIZED_PTR => 
Text IO.Put Line ("Panel savecomp.Initialize Panel: " 
& "Cöllection Read not initialized 1); 
raise; 


when TAE.Tae Co.NO SUCH MEMBER => 
Text IO.Put Line ("Panel savecomp.Initialize Panel: " 
£ "(View or Target) not in Collection 


ralse; 


end Initialize Panel; 
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procedure Create Panel 
( Panel. State 
in TAE.Tae Wpt.Wpt Flags 
:z TAE.Tae Wpt.WPT PREFERRED; 


Relative Window 
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in X Windows.Window 
:— X Windows.Null Window ) is 
begin -- Create Panel 


EE rocecPanel-Id s Tae.Null Panel Id then 
TAE.Tae Wpt.Wpt NewPanel 


( Dummy = 
Data_Vm = iN O Target, 
View_Vm => PALOS. 1 
Relative_Window 2» Relative Window, 
User Context => nto; 
Flags -» Panel State, 
Panel. Id => Info.Panel.Id ); 
else 
Text IO.Put Line ("Panel (savecomp) is already displayed."); 
end if; 


exception 


when TAE.UNINITIALIZED PTR => 


Text IO.Put Line ("Panel savecomp.Create Panel: " 
anclas not initialized prior to creation "s 
raise; 


when TAE.TAE_FAIL => 


Text IO.Put Line ("Panel savecomp.Create Panel:  " 
& "Panelsecoula not be created.")- 
raise; 


end Create Panel; 
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procedure Connect, Panel 
( Panel, State 
in TAE.Tae Wpt.Wpt Flags 
:2 TAE.Tae Wpt.WPT PREFERRED; 


Relative Window 
in X Windows.Window 
:z X Windows.Null. Window ) is 


begin -- Connect Panel 
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if Info.Panel Id - Tae.Null. Panel. Id then 
Create Panel 
( Relative Window -» Relative Window, 
Panel State => Panel State ); 
else 
TAE.Tae Wpt.Wpt SetPanelState (Info-PanelMTd Pange) css 
end if; 


exception 


when TAE.Tae Wpt.BAD STATE => 


Text IO.Put Line ("Panel savecomp.Connect Panel: à 
& "Invalid panel state."); 
raise; 


end Connect, Panel; 
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procedure Destroy Panel is 
--| NOTES: (none) 
begin -- Destroy Panel 
TAE.Tae Wpt.Wpt PanelErase(Info.Panel Id); 
exception 
when TAE.Tae Wpt.BAD PANEL ID => 
Text IO.Put Line ("Panel savecomp.Destroy Panel: " 


£ "Info. Pame TF is an invalida i 
ralse; 





when TAE.Tae_Wpt .ERASE_NULL_PANEL => 

-- This panel has not been created yet, or has already been destroyed. 
-- Trap this exception and do nothing. | 
nudes 


end Destroy. Panel; 
E RR Rb Rb ERE Rb Rb RE RR b HHHH 


-- begin EVENT HANDLERS 
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procedure cancel Event 
EE cs in TAE. Tae_Wpt .Event.ContextaPtr ) is 


--| PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


Rates: array (1..1) of String (1..TAE.Tae_Taeconf .STRINGSIZE); 
Count : TAE.Taeint; 


begin -- cancel Event 


-- Begin default generated code 
NeT mam. vm Extract. Count (Info.Parm Ptr, Count); 
MR ount > 0 then 
TABSTSe Vm.Vm_Extract_SVAL (Into.Parm Pte, 1, Value(l)); 
end 1f; 


-- End default generated code 


-- Begin generated code for Connection 
Connect Panel (TAE.Tae Wpt.WPT INVISIBLE); 
Panel select.Connect Panel (TAE.Tae Wpt.WPT VISIBLE); 
-- End generated code for Connection 
- -ADDED 
TAE.Tae_Wpt.Wpt_PanelReset (Info.Panel_Id); 
Saa 17:80 loop 
pureccorv(d):-' ' 
end loop: ; 


Ree I cuedir- index loop 

hocrarEns]-.380 loop 
currspntedirrectobpv(k) ub): ">; 

end loop; 

end loop; 

prm 1.27 Loop 
directommarray(A):=" *; 

end loop; 

cür dir Lele xe: =] 


end cancel_Event; 
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procedure ok Event 
( Info : in TAE.Tae_WptvEvent Context Per "Ns 


--| PURPOSE: 
--| EVENT HANDLER. Insememapplication speciic informacion. 


--| NOTES: (none) 


Value : array (1..1) of String (1..TAE.Tae_Taecont ¡STRINCSTADA 
Count: TAE tacine. 

- ADDED 

N, K, J, PB: Integer: I 


begin -- ok Event 


-- Begin default generated code 
TAE.Tade.Vm.Vm-Extract Count (IntovParm Ptr. c CouHtls 
if- -Count > 0s Ghen 
TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm Ptr, 1, Value(1)); 
end if; 
-- ADDED 
strlen(selected,N); 
strlen (Directory rif 
strlèén (library J); 
strlen (component, P); 


system call(com&"cv "&Trbrary(l1.-J)&* Ecomponent (1 PJ” CUR cM 
outspec outbody"); 

system call("cp outpsal eDirectory (it) co 
“&component(1..P)&" I 

system call("cp outspec "&Directory(1..K)&"/ 
"&component(1..P)&".spec.a"); 

system calT("cp*"outbody""&Drirectory'(l..K) 
"&component(1l..P)&".body.a"); 

system call("rm outpsdl"); 

system_call("rm outspec"); 

system -ca WM rm outbody 5 


-- End default generated code 
-- Begin generated code for Connection 


Connect Panel (TAE.Tae Wpt.WPT INVISIBLE); 
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Panel, select.Connect Panel (TAE.Tae Wpt.WPT VISIBLE); 
-- End generated code for Connection 
- -ADDED 
TAE.Tae Wpt.Wpt PanelReset(Info.Panel Id); 
rox] 1..80 loop 
Bitececory(X):=' '; 
end loop; 


Bcc En l..cur dir wüudex loop 
Seo an 1..80- loop 
clmrent” directory (tz = T; 
end loop; 
ena Loop: 
fer AB in 1..27 loop 
rector y_array(AA):= ' '; 
end loop; 
puredireindex:z1: 


end ok, Event; 
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psocedure directory Event 
( Info : in TAE.Tae Wpt.Event Context Ptr ) is 


ESI PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


--| NOTES: (none) 


Value : array (1..1) of String (17.TAE.Tae_Taeconf.STRINGSIZE); 
Mount : TAE.Taeznt; 

-- ADDED 

Ns anteger:=1; 

Dummy : Boolean; 

selected. vec:s, vector(1..1):-2 (othersz» new STRING(1..80)); 


begin -- directory Event 


-- Begin default generated code 
BERE TadNE/UmmMUm- Extract Count "MInfo.Parm Ptr, Count); 
E count. >"0 "then 
TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(1)); 
end if; 
-- ADDED 
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selected :2Valwe()) (1 ease 

parse_line(selected) ; 

strlen(selected,N); 

strlen(Directory,M) ; 

if Is_a_directory then 
K:=N+M; 
Directory(1l..K):sDirectory(l..M)&"'/"&selectec "ONLINE 


if K>27 then 

directory array :-z Directory((K-26)..K); 
else 

directory_array := Directo ton. 
end if; 


TAE. Tae_Vm.Vm_SetString(Info.View, "directorylabele, 1, director Manera AS 
.Tae Vm.P UPDATE); 


TAE.Tae Wpt.Wpt ViewUpdate(Info.Panel Id,"directorylabel",Info.View,"dir 
ectorylabel"); 


system call("ls -F "&Directory(l. K)&k" > 1&ils filen 
list directory(1s file,file name,file vec,number); 


TAE.Tae Wpt.Wpt SetStringConstraints(Info.Panel Id,"directory",taeint(nu 
mbéer) , file veer 

Dummy :=TAE.Tae_Wpt.Wpt_Pending; 

cur dir index:zcur. dir iñndex+1; 

Current directory(cur dir index)(1..N):sselectedquWdb. -N). 

for node in (NFN. ¿SUMISO 

current director leur dir index) (node = EF 

end loop; 

system_call("rm ls file"); 

Is_a directory :=EAL E; 


elsif Upper_directory then 
Strlemcurrentesdürectommwücuro»degeensexwsS); 
tor drct ean Mest!) ou toop 
Di nectorvilednee) : =! sae 
end loop; 


if (M-S)>27 then 
directory_array := Directory(((M-S)-26)..(M-S)); 
else 
directory arra := Director I 
end if; : 


TAE.Tae, Vm.Vm SetStmsüng(Info.View,"directorylabel' i, directormmearray 2-2 
.Tae. Vn. P. UPDATE) ; 


TAE.Tae Wpt.Wpt ViewUpdate(Info.Panel Id,"directorylabel",Info.View,"dir 
ectorylabel"); 
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curia: index:=cur dir index=-1; 
coeton callt Is =s ee birectory Ge... (M-S) )& een" ls file"): 
list_directory(ls_file, file_name, file_vec, number) ; 


mee. Tae Wpt .Wpt_SetStringConstraints (Infe.Panel_Idy "directory", taeint (nu 
mber),file vec); 

Dummy :zTAE.Tae Wpt.Wpt Pending; 

system callí("rm 1s file"); 

Upper directory:-FALSE; 


else --A file name is selected 
TAE.Tae Wpt.Wpt PanelMessage(info.panel id,"SELECTION IS NOT A 
PIRECTORY"); 
end if; 


-- End default generated code 


end directory_Event; 
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procedure Dispatch Item 
( User Context Ptr : in TAE.Tae Wpt.Event Context Ptr ) is 


begin -- Dispatch, Item 


if TAE.Tae Misc.s equal ("cancel", User Context Ptr.Parm Name) then 
cancel. Event (User. Context, Ptr); 

elsif TAE.Tae Misc.s equal ("ok", User Context Ptr.Parm Name) then 
ok Event (User Context, Ptr); 

elsif TAE.Tae Misc.s equal ("directory", User Context Ptr.Parm Name) 

then 

directory Event (User Context Ptr); 

end if; 


end Dispatch_Item; 


end Panel_savecomp; 
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R. PANEL CDELWARN PACKAGE 


1. PAN CDELWARN S.A 


-- *** TAE Plus Code Generator version Vou! 
== ^ue : pan, cdelwarn s.a 

-- *** Generated : Aug 12 11:50:32 1992 

-- *** Revised by : Dogan Ozdemir 


Kee KK Ke KEKE KKK KEKE KEK KKK KKK KK KEKE KEKE KKK KEKE KEKE KKK KKK KEK KK KKK KKK KKK KKK KK 
* 

== * Panel_cdelwarn -- Package SPEC 

* 


Ae e A e A e A A e e A KEK KKK KKK KKK KK KKK KKK KK KK KKK KK Ke KK Ke KK KEKE KKK KKK KKK KKK KKK KK 


with TAE; 
with X_Windows; 


package Panel_cdelwarn is 


--| PURPOSE: 

--| This package encapsulates the TAE Plus panel:  cdelwarn 

--| These subprograms enable panel initialization, creation, destruction, 
--| and event dispatching. For more advanced manipulation of the panel 
--| using the TAE package, the panel's Event_Context (Info) is provided. 
--| It includes the Target and View (available after initialization) 

--| and the Panel. Id (available after creation). 


--| REGENERATED: 

--| The following Workbench operations will cause regeneration of this 
--| file: 

Se] The panel's name is changed (not title) 

--| For panel: 


== || cdelwarn 
Info : TAE.Tae_Wpt.Event_Context_Ptr; -- panel information 
-- Initialize_Panel -- Subprogram SPEC 


procedure Initialize_Panel 


( Collection_Read -- TAE Collection read from 
in TAE.Tae_ Co Collection. -- resource file 
--| PURPOSE: 
--| This procedure initializes the Info.Target and Info.View for this 
--| panel 
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--| EXCEPTIONS: 

--| TAE.UNINITIALIZED PTR is raised if Collection, Read not initialized 
--| TAE.Tae Co.NO SUCH MEMBER is raised if the panel is not in 

--| Collection, Read 
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procedure Create_Panel 
( Panel_State -- Flags sent to Wpt_NewPanel. 
in TAE.Tae_Wpt.Wpt_Flags 
:= TAE.Tae_Wot .WPT_PREFERRED; 


Relative_Window -- Panel origin is offset from 
in X Windows.Window -- this X Window. Null Window 
: X Windows.Null Window ); -- uses the root window. 
--| PURPOSE: 


--| This procedure creates this panel object in the specified Panel State 
--| and stores the panel Id in Info.Panel, Id. 

E 

--| EXCEPTIONS: 

--| TAE.UNINITIALIZED_PTR is raised if the panel is not initialized 
--| TAE.TAE_FAIL is raised if the panel could not be created 
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procedure Connect Panel 
( Panel, State 
in TAE.Tae Wpt.Wpt Flags 
:- TAE.Tae Wpt.WPT PREFERRED; 


Relative Window -- Panel origin is offset from 
in X Windows.Window -- this X Window. Null Window 
¿= X Windows.Null Window ); -- uses the root window. 
--| PURPOSE: 


--| If this panel doesn't exist, this procedure creates this panel object 
=o in the specifiec Panel_State and stores the panel Id in 

ze Info.Panel. Id. 

--| If this panel does exist, it is set to the specified Panel State. 
eem In this case, Relative Window is ignored. 


2 | EXCEPTIONS: 
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--| TAE.UNINITIALIZED PTR is raised from Create Panel if the panel is 
--| not initialized 

--| TAE.TAE FAIL is raised from Create Panel if the panel could not be 
-- | created 

--| TAE.Tae Wpt.BAD STATE is raised if the panel exists and the 

--| Panel State is an invalid state 
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procedure Destroy. Panel; 


--| PURPOSE; 
--| This procedure erases a panel from the screen and de-allocates the 
--| associated panel object (not the target and view). 


--| EXCEPTIONS: 

--| TAE.Tae Wpt.BAD PANEL ID is raised if Info.Panel Id is an invalid 
id: 

-=| 


--| NOTES: 
--| Info.Panel.Id is set to TAE.NULL. PANEL. ID, and should not referenced 
--| in any Wpt call until it is created again. 
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procedure Dispatch Item 


( User Context, Ptr -- Wpt Event Context for a PARM 
in TAE.Tae Wpt.Event Context Ptr ); -- event. 
--| PURPOSE: 


--| This procedure calls the Event Handler specified by User Context Ptr 
SEN 

=- | EXCEPTIONS: 

--| Application-specific 


end Panel cdelwarn; 
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2. PAN CDELWARN B.A 


-- *** TAE Plus Code Generator version V5.1 


A o Eile : pan_cdelwarn_b.a 
END "ocenerated : Aug 12 11:50:32 1992 
-- *** Revised by : Dogan Ozdemir 


E A 3k sk s se e oe se oo e e de e oe c oe c ode e ook e e e oe e ce oe oc ose oe oe oie oe oe oe oie cde cie cde AA A A A oe ode A oe oie oe cfe ck ode oe ck ce ck ce e e ce oe ce ode A e 
* 

-- * Panel_cdelwarn -- Package BODY 
* 


HA AA AAA AA AA A AA AA AAA A AA AAA AA AAA AAA A AAA A A ode ode ode ck A A AA AA AA AA A A AAA A A A e e 


with TAE; use TAE; 
UPth Text IO: 

with Global; 

use Global,Text. IO; 


-- One "with" statement for each connected panel. 
with Panel mainmenu; 
with Panel. select; 


package body Panel cdelwarn is 


--| NOTES: 

--| For each parameter that you have defined to be "event-generating" in 
--| this panel, there is an event handler procedure below. Each handler 
--| has a name that is a concatenation of the parameter name and " Event". 
--| Add application-dependent logic to each event handler. (As generated 
--| by the WorkBench, each event handler simply logs the occurrence of 
--| the event.) 


--| You may want to flag any changes you make to this file so that if 
--| you regenerate this file, you can more easily cut and paste your 
--| modifications back in. 


--| REGENERATED: 

--| The following WorkBench operations will cause regeneration of this 
trie: 

-- | The panel's name is changed (not title) 

--| For panel: 

E cdelwarn 


--| The following WorkBench operations will also cause regeneration: 

sl An item is deleted 

Eu A new item is added to this panel 

item's name is changed (not title) 

item's data type is changed 

item's generates events flag is changed 

item's valids changed (if item is type string and connected) 
item's connection information changed 

--| For the panel items: 

E ok, cancel 


BEEBE 
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procedure Initialize Panel 
( Collection. Read 
in TAE.Tae Coöo.Collection Ptr) is 


begin -- Initialize_Panel 
Info += new TAE.Tae_Wpt.Event Context, 
Info. Collection]: = Ca klect ionske. 


TAE.Tae Co.Co Find (Into.Collection;, *cdelwarno Oe 
TAE.Tae Co.Co Find (Info.Collection, "*cdelwarntt inter Tarqecm 


exception 


when TAE.UNINITIALIZED PTA => 


Text IO.Put Line ("Panel cdelwarn.Initialize Panel: * 
& "Collection Read not initialized."); 
raise; 


when TAE.Tae Co.NO, SUCH. MEMBER => 
Text IO.Put Line ("Panel cdelwarn.Initialize Panel: " 
& *(View or Target) not in Collection. 
raise; 


end Initialize Panel; 
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procedure Create Panel 
( Panel. State 
in TAE.Tae Wpt.Wpt Flags 
>= TAE.Tae Wpt.WPT PREFERRED; 


Relative Window 


in X Windows.Window 
:= X Windows.Null. Window ) is 
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begin -- Create Panel 


if Info.Panel. Id - Tae.Null. Panel Id then 
TAE.Tae Wpt.Wpt NewPanel 


( Dummy => "", 
Data_Vm -» Info.Target, 
View Vm => Info.View, 
Relative_Window => Relative Window, 
User. Context => "LLO" 
Flags => Panel_State, 
Panel. Id - Info.Panel Id ); 


else 
Text IO.Put Line ("Panel (cdelwarn) is already displayed."); 
end if; 


exception 
waeme lor. NEINITIALIZED PTR => 
Text IO.Put Line ("Panel cdelwarn.Create Panel: : 
& "Panel was not initialized prior to creation."); 
raise; 
when TAE.TAE. FAIL => 
Text IO.Put Line ("Panel cdelwarn.Create Panel: " 
& "Panel could not be created."); 
raise; 
end Create, Panel; 
-- Connect_Panel -- Subprogram BODY 
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procedure Connect, Panel 
( Panel State E 
in TAE.Tae Wpt.Wpt Flags 
:z TAE.Tae Wpt.WPT PREFERRED; 


Relative Window 
in X Windows.Window 
:z X Windows.Null Window ) is 


begin -- Connect, Panel 
if Info.Panel. Id - Tae.Null. Panel. Id then 
Create Panel 


( Relative. Window => Relative Window, 
Panel, State 2» Panel State ); 
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else 
TAE.Tae Wpt.Wpt SetPanelState (Into Panel Id bancs ES 
end if; 


exception 


when TAE.Tae_Wpt.BAD_STATE => 


Text IO.Put Line ("Panel cdelwarn.Connect Panel: E 
& "Invalid panel state."); 
raise; 


end Connect Panel; 
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procedure Destroy Panel is 


begin -- Destroy Panel 
TAE.Tae Wpt.Wpt PanelErase(Info.Panel Id); 
exception 
when TAE.Tae Wpt.BAD PANEL ID => 
Text IO.Put Line ("Panel, cdelwarn.Destroy Panel: " 
& "Info.Panel_ld 18 an invaltdaduia- 4 


ralse; 


when TAE.Tae Wpt.ERASE NULL PANEL -» 


-- This panel has not been created yet, or has already been destroyed. 


-- Trap this exception and do nothing. 
Au 1 


end Destroy Panel; 
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-- begin EVENT HANDLERS 
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procedure ok, Event 
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. fare sy in TAR Tae Wpe. Eveneacontext_Ptr ) is 


--| PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


po carrav (1D NO String gg TAE.Tae Taeconf.STRINGSIZE); 
Serme sa) LAE. Taeint > 
DS Mn tceder:=1; 


begin -- ok_Event 


-- Begin default generated code 
DoE Tae Vm. VM Extract COUÑt (Info.Parm Ptr, Count); 
Mco unt > 0 then 

MARTI Vm. vm_ Extract SvAL (Into.Parm_Ptr, l1, Value(1)); 
else 

null; 
end if; 
- ADDED 
strlen(component,L); 
strhen(lrbrary,S); 
system call(com&"cd "&library(1..S)&" "&component(1..L)); 
TAE.Tae Wpt.Wpt PanelReset(Panel mainmenu.Info.Panel Id); 
poreGlean in linum of comp) loop 

for chimitesl ..80° Loop 

Pile vec(G@lean) liven) -=" "; 

end loop; 

end loop; 


-- End default generated code 


-- Begin generated code for Connection 


Connect Panel (TAE.Tae Wpt.WPT INVISIBLE); 
Panel. mainmenu.Connect, Panel (TAE.Tae Wpt.WPT VISIBLE); 


-- End generated code for Connection 


end ok Event; 
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procedure cancel Event 
(Tae - n TAE.Tae. Wpt.Event Context Ptr ) is 
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-- | PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


Value : array (1..1) of String (1. TAE Tae Taeconi menn I E 
Count : TAE.Taeint^ 


begin -- cancel, Event 


-- Begin default generated code 
TAE.Tae_Vm.Vm_Extract Count (nto. arm Per COUNTE 
if Count > 0 then 

TAE.Tae_Vm.Vm_EXtract_SVAL (Into Parm Ptr, I Value Ia 
else 

PORE 
end if; 
-- End default generated code 
-- Begin generated code for Connection 
Connect Panel (TAE.Tae Wpt.WPT INVISIBLE); 
Panel select.Connect Panel (TAE.Tae Wpt.WPT VISIBLE); 


-- End generated code for Connection 


end cancel, Event; 
-- end EVENT HANDLERS 
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procedure Dispatch, Item 
( User Context Pt-z : in TAE.Tae Wpt.Event Context Ptr ) is 


1 


--| NOTES: (none) 
begin -- Dispatch Item 


if TAE.Tae Misc.s equal ("ok", User Context Ptr.Parm Name) then 
ok Event (User Context Ptr); 
elsif TAE.Tae Misc.s equal ("cancel", User Context Ptr.Parm Name) then 
cancel Event (User. Context, Ptr); 
end if; 


end Dispatch Item; 


end Panel, cdelwarn; 
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S. PANEL INTEGRATE PACKAGE 


l. PAN INTEGRT S.A 


-- *** 'CTAE Plus Code Generator version V5.1 
-- *** File : pan integrt s.a 

RE "^ Genesrated . Sep 13 13:51:07 1992 

-- *** Revised by : Dogan Ozdemir 


*k ck 3e e ck ck ok ck ck ce ok ce ck ce ce ck ode oce ook ck ook ck ok ck ok ck ok ck ck ck ck ce ck ck ck ok ck ok cde ce ck ok ck ck cde ok ce ce de ce ce ok ce ck ce ce ck ck ck oe ck oe ok oe KK 


IS Panel_integrt -- Package SPEC 


*e ck ck ok ok ck ok coke ck ck ok ce ok oc ok cde ook ok oe cic cde oe ck cic ce cie ode ce oe cie ce ose oce cle ode ce cfe oe oe ode ode oe e e e e e A A e e e e e e A A e e A A A A e 


Wien TAE: 
with X Windows; 


package Panel integrt is 


--| PURPOSE: 

--| This package encapsulates the TAE Plus panel: integrt 

--| These subprograms enable panel initialization, creation, destruction, 
--| and event dispatching. For more advanced manipulation of the panel 
--| using the TAE package, the panel's Event, Context (Info) is provided. 
--| It includes the Target and View (available after initialization) 

--| and the Panel Id (available after creation). 


--| REGENERATED: 

--| The following Workbench operations will cause regeneration of this 
--| file: 

221 The panel's name is changed (not title) 

--| For panel: 


=- | integrt 
inro n TAE Tael Wpt.Event_ContexXxt_Ptr; -- panel information 
-- Initialize. Panel -- Subprogram SPEC 
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procedure Initialize Panel 


( Collection. Read -- TAE Collection read from 
in TAE.Tae. Co.Collection, Ptr ); -- resource file 
--| PURPOSE: 
--| This procedure initializes the Info.Target and Info.View for this 
--| panel 
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--| EXCEPTIONS: 

--| TAE.UNINITIALIZED PTR is raised if CollectionsBeadM p EM a eee 
--| TAE.Tae Co.NO SUCH MEMBER is raised if the panel is not in 

-- | Collection_Read 
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procedure Create Panel 
( Panel. State -- Flags sent to Wpt NewPanel. 
in TAE.Tae Wpt.Wpt Flags 
: TAE.Tae Wpt.WPT PREFERRED; 


Relative Window -- Panel origin is offset from 
in X Windows.Window -- this X Window. Null Window 
: X Windows.Null. Window ); -- uses the root window. 
--| PURPOSE: 


--| This procedure creates this panel object in the specified Panel_State 
--| and stores the panel Id in Info.Panel Id. 

zd 

-=| EXCEPTIONS: 

--| TAE.UNINITIALIZED PTR is raised if the panel is not initialized 
--| TAE.TAE FAIL is raised if the panel could not be created 
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procedure Connect Panel 
( Panel State 
in TAE.Tae Wpt.Wpt Flags 
:2 TAE.Tae Wpt.WPT PREFERRED; 


Relative Window -- Panel origin is offset from 
in X Windows.Window -- this X Window. Null Window 
:z X Windows.Null Window ); -- uses the root window. 
--| PURPOSE: 


--| If this panel doesn't exist, this procedure creates this panel object 
==] in the specifiec Panel State and stores the panel Id in 

== Info.Panel_ld. 

--| If this panel does exist, it is set to the specified Panel, State. 
zu In this case, Relative Window is ignored. 
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EXCEPTIONS: 

TAE.UNINITIALIZED_PTR is raised from Create_Panel if the panel is 
Hncceunytugalized 

TAE.TAE FAIL is raised from Create Panel if the panel could not be 
created 

TAE.Tae Wpt.BAD STATE is raised if the panel exists and the 
Panel State is an invalid state 
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procedure Destroy Panel; 


PURPOSE: 
This procedure erases a panel from the screen and de-allocates the 
associated panel object (not the target and view). 


EXCEPTIONS: 
TAE.Tae Wpt.BAD PANEL ID is raised if Info.Panel Id is an invalid 


NOTES: 
Info.Panel. Id is set to TAE.NULL. PANEL ID, and should not referenced 
in any Wpt call until it is created again. 
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procedure Dispatch Item 


( User Context Ptr -- Wpt Event Context for a PARM 
in TAE.Tae Wpt.Event Context Ptr ); -- event. 
--| PURPOSE: 


--| This procedure calls the Event Handler specified by User Context Ptr 


EXCEPTIONS: 
Application-specific 


end Panel integrt; 
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2. PAN INTEGRT B.A 


-- *** TAE Plus Cede Generator version VSI 


2 TS sapan integri B-A 
-- *** Generated "= Oct 22 leée29-54 199? 
-- *** Revised by : Dogan Ozdemir 


es X X X X X X X keke ke XXX s scs k+ k+ X X X X X X X X X X X X X X X X X + + X + + X X + h+ k+ kk + + + h k ++ + 
* 

ia Panel integrt -- Package BODY 

— * 
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with TAE; use TAE; 
with Text TO; 

with Global; 

use Text IO,Global; 


-- One "with" statement for each connected panel. 
with Panel. select; 
with Panel, mainmenu; 


package body Panel integrt is 


~= | NOTES: 

--| For each parameter that you have defined to be "event-generating" in 
--| this panel, there is an event handler procedure below. Each handler 
--| has a name that is a concatenation of the parameter name and " Event". 
--| Add application-dependent logic to each event handler. (As generated 
--| by the WorkBench, each event handler simply logs the occurrence of 
--| the event.) 


--| You may want to flag any changes you make to this file so that if 
--| you regenerate this file, you can more easily cut and paste your 
--| modifications back in. 


-- | REGENERATED: 

--| The following WorkBench operations will cause regeneration of this 
--| file: 

-—| The panel's name is changed (not title) 

--| For panel: 

=>: Intec 


--| The following WorkBench operations will also cause regeneration: 

== An item is deleted 

= ea A new item is added to this panel 

=| An item's name is changed (not title) 

ol An item's data type is changed 

E An item's generates events flag is changed 

==) An item's valids changed (if item is type string and connected) 
ss An item's connection information changed 

--| For the panel items: 

e cancel, integrate, inc gut 


Span) 
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procedure Initialize Panel 
( Collection. Read 
IDA. Tae CortollectioniPBtr ) is 


begin -- Initialize_Panel 


Info := new TAE.Tae_Wpt.Event_Context; 

Into Collection := Collection_Read; 

ue Tae co. Co Fina (Intfto.Collection, "integrt_v", Info.View); 
WATSON Mato. Collection "Mntegrt_t", Info.Tarefet); 


exception 


when TAE.UNINITIALIZED_PTR => 
eze TO. Put _ Line Panel integrt.Initialize Panel:  " 
LES lecetion Read not initialized. "); 
ralse; 


when TAE.Tae_Co.NO_SUCH_MEMBER => 
Text IO.Put Line ("Panel integrt.Initialize Panel: " 
Cun view or Target) not in Collection."); 
raise; 


end Initialize. Panel; 
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procedure Create Panel 
( Panel. State 
in TAE.Tae Wpt.Wpt Flags 
:- TAE.Tae Wpt.WPT PREFERRED; 


Relative Window 
in X Windows.Window 
:z X Windows.Null Window ) is 


begin -- Create Panel 


323 


if Info. Panel@ld = Tae. Null Panel Ld Chen 
TAE.Tae Wpt.Wpt NewPanel 


( Dummy m RE 
Data, Vm => Info.Target, 
View Vm z> Infoó.View, 
Relative_Window => Relative_Window, 
User_Context - X Inc 
Flags -» Panel State, 
Panel. Id => Info.Panel Id); 


else 
Text IO.Put, Line ("Panel (integrt) is already displayed."); 
end at 


exception 


when TAE.UNINITIALIZED_PTR => 
Text IO.Put Line ("Panel integrt.Create Panel: " 
& "Panel was not initialized prior to creation."); 
raise; 


when TAE.TAE FAIL => 
Text IO.Put Line ("Panel integrt.Create Panel: " 
& "Panel could not be created."); 
raise; 


end Create Panel; 
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procedure Connect, Panel 
( Panel. State 
: in TAE.Tae Wpt.Wpt Flags 
:z TAE.Tae Wpt.WPT PREFERRED: 


Relative Window 
in X Windows.Window 
:2 X Windows.Null Window ) is 


filename ; String (IU 300 -(others-- 1c 
Q,L,F,P,K: integer. i 

Dummy : Boolean; 

begin -- Connect_Panel 


if Info.Panel_Id = Tae.Null_Panel_Id then 
Create_Panel 
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( Relative. Window z» Relative Window, 


Panel State -» Panel State ); 
else 
TAE.Tae Wpt.Wpt SetPanelState (Info.Panel Id, Panel. State); 
end if; 
- ADDED 


strlen(Query_psdl,Q); 

strlen(component,L); 

Serlon proto _ prefix, P) > 

Ks=B+l; 

ntnameo (IE: = preto pretix(l..P.)6"."> 

if Query then 
--filename(K..(24Q)):-2 Query psdl(1..(Q-4)); 
filename(K-«1..(K-(Q-3))):2 Query psdl(1..(Q-4))&"a"; 


-—-filename (3+0):='a'; 
else 

filename (K+1..(L+K+2)):= component (1..L)£".a"; 
and if; 


strlen(filename,F); 


TAE.Tae Vm.Vm SetString(Info.View,"filename",1l,filename(1l..F),TAE.Tae Vm 
ESDENSPDATE);: 


TAE.Tae Wpt.Wpt ViewUpdate(Info.Panel Id,"filename",Info.View,"filename" 
o 
Dummy:zTAE.Tae Wpt.Wpt Pending; 
Ore leann 1..80 loop 
filename (clean):=' '; 
end loop; 
exception 
when TAE.Tae_Wpt.BAD_STATE => 
Text IO.Put Line ("Panel, integrt.Connect Panel: " 
& "Invalid panel state."); 


raise; 


end Connect Panel; 
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procedure Destroy Panel is 
begin -- Destroy Panel 


TAE.Tae Wpt.Wpt PanelErase(Info.Panel Id); 
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exception 
when TAE.Tae Wpt.BAD PANEL ID => 
Text IO.Put Line ("Panel integrt.DestrovPPaner 
& "Info.Panel.Id is an invalid id W; 
raise; 


when TAE.Tae Wpt.ERASE NULL PANEL => 


-- This panel has not been created yet, or has already been destroyed. 


-- Trap this exception and do nothing. 
nup 


end Destroy Panel; 


HERE HEHEHE EEE EEE EEE EERE EEE EEE EEE EEE EEE HEHEHE EE EEE EEE HHH HHH HHH He HH ete 


-- begin EVENT HANDLERS 
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procedure cancel_Event 
(Info : in TAE.Tac Wot. Event Context. Per eis 


--| PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


Value : array (1-1) of String (1. .TAE-Tae_TVaccont sie tiesize 
Count : TAE Taeint: 
O, L s Integer. =l; 


begin -- cancel_Event 
-- Begin default generated code 
TAE.Tae Vm.Vm Extract Count (Info.Parm Ptr, Count); 
If Count 09 9 , 
TAE.Tae Vm.Vm Extract. SVAL (Info.Parm Ptr, 1l, Value(1)); 
endif, 
-- End default generated code 
- -ADDED 
system_call("rm retrieved_psdl"); 
system call("rm retrieved, spec"); 
system calliü*rm retrieved body"); 
system call("rm outfile"); 
system call("rm message"); 
-- Begin generated code for Connection 
Destroy Panel; 
Panel select.Connect Panel (TAE.Tae Wpt.WPT VISIBLE); 
-- End generated code for Connection 
end cancel. Event; 
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procedure integrate Event 
( Info : in TAE.Tae Wpt.Event Context Ptr ) is 


--| PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


--| NOTES:Invokes the code for integration 


Dc Urr- c-r: string (1. TAE. Tae_Taeconf .STRINGSIZE); 
Count : TAE. Taeint; 
Seo integer sl, 


begin -- integrate_Event 
-- Begin default generated code 
p dem VmeExBPact Count (Info.Parm Ptr, Count); 
if Counta 0 then 
TAZE.Tae Vm.Vm Extract SVAL (Info.Parm Ptr, 1l, Value(1)); 
end rf: 
= - ADDED 
strlen( (proto. pref1X,X)> 
strlen (path,P); 
strlen(component,C); 
if Query then 
strlen(Query psdl,Q); 
DC COLIESMSNDICLIXOIEEX)-Queryspsdl(Il..X) then 
SvspenscsNN"cbeoutftile *&path(l..P)&"/"&Query psdl(l..(Q- 
A a; 
else 
musHenEcadbbhcploutfile *&path(l..P)&"/ 
"tbroto prefix(l..X)&"'."&Query psdl(1..(Q-4))&"a"); 
endet 
system call("cp retrieved spec "&path(1l..P)&"/ 
koroto pr erin "X c cscomponenttl..C)&" spec.a"); 
system call("cp retrieved body "&path(l..P)&"/ 
au sotosprsetrx(lX)&'"&component(TI..C)&" body.a"); 


else 
system_call("cp outfile "&path(l..P)&"/ 
Ue rotocwNpEesp d Xye'component(l..C)&".a*); 
system callí("cp retrieved spec "&path(1l..P)&"/ 
PSproto prerix( lex) &"."“&component (1..C)&"_spec .auwe; 
system call("cp retrieved body "&path(1l..P)&"/ 
"Cproto*prerix(l. xX)«4"ecompenent(l.:C)&' body.a*); 
ena if; 
Query :=False; 


327 


for erase in 1.73807 leop 
Query psd (erase): =e ; 

end loop; 

system_call( sem outfilennr 
system_call("rm message"); 
system_call("rm retrieved_psdl"); 

system_call("rm retrieved_spec"); 

system_call("rm retrieved body"); 


-- End default generated code 

-- Begin generated code for Connection 

Destroy_Panel; 

Panel_mainmenu.Connect_Panel (TAE.Tae_Wpt.WPT_VISIBLE) ; 
-- End generated code for Connection 


end integrate_Event; 
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procedure Int9quic Event 
( Info : in TAE.Tae Wpt.Event Context Ptr ) is 


--| PURPOSE: 
--| EVENT HANDLER. Insert application specific information. 


--| NOTES: Invokes the code for integration and terminates the program. 


Value searmay (1..1) of String (1... TAE. Tae Taecont-smincsiZae 
Count : TAE.Taeint; 
nx, PP, ES Integer: 


begin -- int, quit Event 
-- Begin default generated code 
TAE. Tae_Vm.Vm_ExtractaCcount. (Inte Barm Ren, Count E 
if Count > 0 chen 
TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(1)); 
endai: 
- -ADDED 
SLC len LEG x); 
strlen (path, P); 
strlen(component,C); 
if Query then 
strlen(Query psdl,Q); 
system call("cpwoeutfilew*&pathW( serie, 
"&proto.prefix(1..X)&".'*&Query psdl(le- 094027 
system call("cp retrieved spec "&path(1..P)&"/ 
"£proto_prefix(1..X)8£*f. "component (IMC Espe cnn 


U 
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system call("cp retrieved body "&path(1l..P)&"/ 
peeroto prefix ( X)&'.*"&eomponent(l..C)&" body.a"); 
--system_call("rm '&Ouery psdl(l..Q))- 
else 
system call("cp outfile "&path(1..P)&"/ 
E rroto prefix(l..X)&"."&component(l..C)&".a"); 
system call("cp retrieved spec "&path(1l..P)&"/ 
E rotospretix(l..X)&"."£componentí(l..C)&" spec.a"); 
system callí("cp retrieved body "&path(1..P)&"/ 
Euroto-prefix(l..X)&'."'&component(l..C)&" body.a"); 
end if; 
system call("rm oùtfile"); 
system_call("rm message"); 
system_call("rm retrieved_psdl"); 
system_call("rm retrieved_spec"); 


system call("rm retrieved body"); 
Global.Set Application, Done; 


snd nto quit Event; 


== end EVENT HANDLERS 
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procedure Dispatch Item 


( User Context Ptr in TAE.Tae Wpt.Event Context Ptr ) is 
--| NOTES: (none) 
begin -- Dispatch, Item 


if TAE.Tae Misc.s equal ("cancel", 
cancel Event (User. Context Ptr); 
elsif TAE.Tae Misc.s equal ("integrate", User Context Ptr.Parm Name) 


User Context Ptr.Parm Name) then 


then 


integrate Event (User Context Ptr); 


elsif TAE.Tae Misc.s equal ("int quit", User Context Ptr.Parm Name) 
then 
int quit Event (User Context. Ptr); 
end if; 


end Dispatch Item; 


end Panel integrt; 
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T. SOFTBASE SUPPORT PACKAGE 


1. SOFTBASE SUPPORT S.A 


-- *** TAFE Plus Code Generator version V5.1 
-- *** File : softbase_support_s.a 
-- *** Generated : May 21 16:12:31 1992 


-- *** Revised by : Dogan Ozdemir 
kaka eK kK KKK KKK KK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK 


* 
-- * softbase_Support -- Package SPEC 
* 


X X X X X X X X X X X X X X X X X X X X Kh KKK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KKK 


-— — 


with TAE; 
package softbase Support is 


= | PURPOSE, 

--| This package encapsulates the operations specific to a resource file. 
--| These subprograms enable initialization of all panels, displaying 
--| all initial panels, and event dispatching. 


--| REGENERATED: 
--| This file is generated only once. 
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procedure Initialize Al11l. Panels 
( Resource File -- Name of resource file. 
in Sering JF 


--| PURPOSE: 

--| This procedure initializes all the panels in the resource file. 
==. 

--| EXCEPTIONS: 

--| TAE.TAE FAIL is raised when the resource file could not be read 
--| TAE.Tae Co.NO SUCH, MEMBER is raised when one of the panels was not in 
=a] the resource file. This could happen if a panel was deleted from 
-- | the resource file (using the WorkBench) after the code was 

=a generated. 

ec 

-= ENOTES 

--| This procedure reads in the resource file and initializes each panel. 
=- RG only needs to be called once. 
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procedure Create_Initial_Panels; 


--| PURPOSE: 
--] This procedure displays the set of initial panels. 
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procedure Dispatch, Panel 


( User. Context Ptr =—- Wot Evernwmecontext for a PARM 
in TAE.Tae_Wpt.Event_Context_Ptr; -- event. 
Panel. In Resource File == True, 1f the PARM event 
out Boolean ); -- occurred in one of the panels 


-- of this resource file. 
-- False, otherwise. 

--| PURPOSE: 

--| This procedure dispatches a WPT PARM, EVENT to the appropriate 

panel's 

--| Dispatch, Item routine. 

zl 

--| EXCEPTIONS: 

--| Application-specific 


end softbase Support; 


2. SOFTBASE SUPPORT B.A 
-- *** TAE Plus Code Generator version V5.1 
AA E Te usofttbase support D.a 


-2 *** Generated : Sep 14 09:04:39 1992 
-- *** Revised by : Dogan Ozdemir 
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-- * softbase Support -- Package BODY 
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BET 


wlithaEPAE. 
with Text IO; 


-- one "with" for each panel in the resource file 
with Panel library; 
with Panel. lbselect; 
with Panel libadd; 
with Panel. lbdelete; 
with Panel ldelwarn; 
with Panel. mainmenu; 
with Panel. addfile; 
with Panel, compsel; 
with Panel. keyword; 
with Panel query; 
with Panel viewpsdl; 
with Panel, viewspec; 
with Panel, viewbody; 
with Panel. select; 
with Panel. cdelwarn; 
with Panel. savecomp; 
with Panel. integrt; 


package body softbase Support is 


--| REGENERATED: 

--| The following WorkBench operations will cause regeneration of this 
--| file: 

zi A panel is deleted 

icd A new panel is added 

=> A panel's name is changed (not title) 

--| For the panels: 

--| library, lbselect, libadd, lbdelete, ldelwarn, mainmenu, addfile, 
--| compsel, keyword, query, viewpsdl, viewspec, viewbody, select, 
ee cdelwarn, savecomp, integrt 
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procedure Initialize All Panels 
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( Resource File 


Mme Stryrng ) xs 
miso llecrtion Read =; TPAE.Tae-Co.Ccollection.Ptr; 
begin -- Initialize_All_Panels 


-- do one Co New and Co ReadFile per resource file 
TAE.Tae Co.Co New 
(Flags => 05 
Coid => vm Collection Read ); 
-- could pass P_Abort if you prefer 
TAE.Tae Co.Co, ReadFile 
(Coid => Vm Collection Read, 
Spec -» Resource File, 
Mode z» TAE.P CONT ); 


banelSlibrary:Initialize_ Panel (Vm Collection Read); 
Panel_lbselect.Initialize_Panel (Vm_Collection_Read) ; 
Panel. libadd.Initialize.Panel (Vm Collection Read); 
Panel lbdelete.Initialize Panel (Vm Collection Reag); 
Panel. ldelwarn.Initialize. Panel (Vm Collection Read); 
Panel. mainmenu.Initialize. Panel (Vm Collection Read); 
Panel addfile.Initialize Panel (Vm Collection Read); 
Panel compsel.Initialize Panel (Vm Collection Read); 
Panel keyword.Initialize Panel (Vm Collection, Read); 
Panel query.Initialize Panel (Vm Collection Read); 
Panel, viewpsdl.Initialize Panel (Vm Collection Read); 
Panel viewspec.Initialize Panel (Vm Collection Read); 
Panel viewbody.Initialize Panel (Vm Collection Read); 
Panel select.Initialize Panel (Vm Collection Read); 
Panel cdelwarn.Initialize Panel (Vm Collection Read); 
Panel savecomp.Initialize Panel (Vm Collection Read); 
Panel integrt.Initialize Panel (Vm Collection Read); 


exception 
when TAE.TAE FAIL => 
Text IO.Put, Line ("resfile Support.Initialize All, Panels:  "); 
Text IO.Put Line (Resource, File 
& “doesn 'tuextsitwor is incorrectly formatted."); 
raise; 


when TAE.Tae Co.NO SUCH. MEMBER -» 
-- raised from one of the panel's Initialize Panel 


raise; 


end Initialize All Panels; 
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procedure Dispatch, Panel 
( User Context Ptr 
in  TAE.Tae Wpt.Event Context Ptr; 


Panel. In, Resource File 


out Boolean ) is 
begin -- Dispatch Parm Event 
Panel. In Resource File :- TRUE; 
if TAE.Tae Wpt."z" (User, Context Ptr, Panel library.Info) then 
Panel library.Dispatch Item (User. Context Ptr); 
elsif TAE.Tae Wpt."z" (User. Context, Ptr, Panel. lbselect.Info) 


Panel lbselect.Dispatch Item (User. Context, Ptr); 


elsif TAE.Tae-Wpt."z*" (User Context Ptr, Panel libadd Into) jemen 


Panel libadd.Dispatch Item (User Context Ptr); 

elsif TAE.Tae Wpt."z" (User Context Ptr, Panel lbdelete.Info) 
Panel lbdelete.Dispatch Item (User Context Ptr); 

elsif TAE.Tae Wpt."z" (User Context Ptr, Panel ldelwarn.Info) 
Panel ldelwarn.Dispatch Item (User Context Ptr); 

elsif TAE.Tae_Wpt."=" (User Context Ptr, Panel mainmenu.Info) 
Panel mainmenu.Dispatch Item (User Context Ptr); 


elsif TAE.Tae Wpt."z" (User Context Ptr, Panel addfile.Info) then 


Panel addfile.Dispatch Item (User Context Ptr); 


elsif TAE.Tae Wpt."z" (User Context Ptr, Panel compsel.Info) then 


Panel compsel.Dispatch Item (User Context Ptr); 


elsif TAE.Tae Wpt."z" (User Context Ptr, Panel keyword.Info) then 


Panel keyword.Dispatch Item (User Context Ptr); 
elsif TAE.Tae Wpt."z" (User Context Ptr, Panel query.Info) then 
Panel query.Dispatch Item (User Context Ptr); 


elsif TAE.Tae Wpt."z" (User Context Ptr, Panel viewpsdl.Info) then 


Panel viewpsdl.Dispatch Item (User. Context Ptr); 


elsif TAE.Tae Wpt."z" (User Context Ptr, Panel viewspec.Info) 
Panel viewspec.Dispatch Item (User. Context Ptr); 
elsif TAE.Tae Wpt."-" (User Context Ptr, Panel viewbody.Info) 


Panel, viewbody.Dispatch Item (User Context Ptr); 


elsif TAE.Tae Wpt."z" (User Context Ptr, Panel select.Info) then 


Panel select.Dispatch Item (User Context Ptr); 

elsif TAE.Tae Wpt."z" (User Context Ptr, Panel cdelwarn.Info) 
Panel, cdelwarn.Dispatch Item (User Context Ptr); 

elsif TAE.Tae Wpt."-" (User Context Ptr, Panel savecomp.Info) 
Panel savecomp.Dispatch Item (User Context Ptr); 


elsif TAE.Tae Wpt."-" (User Context Ptr, Panel integrt.Info) then 
Panel integrt.Dispatch Item (User Context Ptr); 

else 
Panel In Resource File :- FALSE; 

endri: 


end Dispatch_Panel; 


end softbase_Support; 
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U. SOFTBASE CREAT INIT.A 


=- *** TAE Plus Code Generator version V5.1 


a= = ** File ų softbāäse Creat _ init- a 

EI * Generated  : Aug 12 16:02:32 1992 

-- *** Revised by : Dogan Ozdemir 

-- Create InitialPanels -- Subprogram SUBUNIT 


€ 9 & 9 9 o o o 9 o ù ùo ù >o 9 . $9 © o O $9 9 © > o € o e * 9 * 9 9 9 9 9 9 O O 9 * 9 9$? 9 9 9 9 * 9 e 9 V 9? @ $ 9 à 9 e e e e e e e & @ 


separate (softbase Support) 
procedure Create Initial, Panels is 


--| NOTES: 
--| This subprogram is not in the same file as softbase Support.a 
--| for code regeneration purposes. Therefore it is a subunit. 


--| Also note, that the parent unit "with"ed in all of the panel packages 
S=| for the entire resource file, so this unit doesn't need to "with" in 
--| any of the panel packages. 


--| This procedure should be called after the panels in the initial panel 
--| set have been initialized. 


ZI REGENERATED: 

--| The following WorkBench operations will cause regeneration of this 
--| file: 

= A panel is added to the initial panel set 

| A panel is deleted from the initial panel set 

For the set of initial panels: 


-- | library, lbdelete, lbselect, addfile, query, keyword, compsel, 
==| savecomp 

zw 

begin -- Create Initial Panels 


Panel library.Create Panel; 
Panel lbdelete.Create. Panel; 
Panel lbselect.Create. Panel; 
Panel, addfile.Create. Panel; 
Panel query.Create Panel; 
Panel keyword.Create Panel; 
Panel. compsel.Create Panel; 
Panel savecomp.Create Panel; 


end Create Initial. Panels; 
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